aboutsummaryrefslogtreecommitdiff
path: root/docs/articles/mkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-10-26 23:18:20 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2016-10-26 23:18:20 +0200
commit8f38147e145c66ebd27f5d9fcc6f00172c25872f (patch)
tree35123308ef781f6ad4b83b6d421d5e0e35d2e574 /docs/articles/mkin.R
parentd106bebafe070cb803dd7205b1581b20eaf61cb5 (diff)
Static documentation rebuilt by pkgdown::build_site()
Diffstat (limited to 'docs/articles/mkin.R')
-rw-r--r--docs/articles/mkin.R22
1 files changed, 22 insertions, 0 deletions
diff --git a/docs/articles/mkin.R b/docs/articles/mkin.R
new file mode 100644
index 00000000..175bd33b
--- /dev/null
+++ b/docs/articles/mkin.R
@@ -0,0 +1,22 @@
+## ---- echo = TRUE, cache = TRUE, fig = TRUE, fig.width = 8, fig.height = 7----
+require(mkin)
+m_SFO_SFO_SFO <- mkinmod(parent = mkinsub("SFO", "M1"),
+ M1 = mkinsub("SFO", "M2"),
+ M2 = mkinsub("SFO"),
+ use_of_ff = "max", quiet = TRUE)
+
+sampling_times = c(0, 1, 3, 7, 14, 28, 60, 90, 120)
+
+d_SFO_SFO_SFO <- mkinpredict(m_SFO_SFO_SFO,
+ c(k_parent = 0.03,
+ f_parent_to_M1 = 0.5, k_M1 = log(2)/100,
+ f_M1_to_M2 = 0.9, k_M2 = log(2)/50),
+ c(parent = 100, M1 = 0, M2 = 0),
+ sampling_times)
+
+d_SFO_SFO_SFO_err <- add_err(d_SFO_SFO_SFO, function(x) 3, n = 1, seed = 123456789 )
+
+f_SFO_SFO_SFO <- mkinfit(m_SFO_SFO_SFO, d_SFO_SFO_SFO_err[[1]], quiet = TRUE)
+
+plot_sep(f_SFO_SFO_SFO, lpos = c("topright", "bottomright", "bottomright"))
+

Contact - Imprint