aboutsummaryrefslogblamecommitdiff
path: root/docs/articles/FOCUS_D.R
blob: 51723496e03d99c942db32cf098f6144cb2e65f3 (plain) (tree)
1
2
3
4



                                                                           



















                                                                           
## ---- include = FALSE----------------------------------------------------
library(knitr)
opts_chunk$set(tidy = FALSE, cache = TRUE)

## ----data----------------------------------------------------------------
library("mkin")
print(FOCUS_2006_D)

## ----model---------------------------------------------------------------
SFO_SFO <- mkinmod(parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))
print(SFO_SFO$diffs)

## ----fit-----------------------------------------------------------------
fit <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE)

## ----plot, fig.height = 6, fig.width = 8---------------------------------
plot_sep(fit, lpos = c("topright", "bottomright"))

## ----plot_2, fig.height = 4, fig.width = 8-------------------------------
mkinparplot(fit)

## ------------------------------------------------------------------------
summary(fit)

Contact - Imprint