aboutsummaryrefslogtreecommitdiff
path: root/docs/articles/FOCUS_D.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-11-18 23:08:45 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2016-11-18 23:08:45 +0100
commitd852e9e000f57f280deb84611ae1af58daa883cc (patch)
tree10d71ca9fd557ead9c15025d2050f977e08de14e /docs/articles/FOCUS_D.R
parent30f55769fe2f042c7753144051dd34eec3596adc (diff)
Fix links in README, configure navbar, rebuild docs
Diffstat (limited to 'docs/articles/FOCUS_D.R')
-rw-r--r--docs/articles/FOCUS_D.R20
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)
+

Contact - Imprint