diff options
Diffstat (limited to 'docs/articles/FOCUS_D.R')
| -rw-r--r-- | docs/articles/FOCUS_D.R | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/docs/articles/FOCUS_D.R b/docs/articles/FOCUS_D.R index 9eaf41f7..51723496 100644 --- a/docs/articles/FOCUS_D.R +++ b/docs/articles/FOCUS_D.R @@ -2,3 +2,23 @@ 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) + |