Example evaluation of D24_2014, improve docs

1 files changed, 10 insertions, 0 deletions

diff --git a/man/D24_2014.Rd b/man/D24_2014.Rd
index d555d348..59ea5a9e 100644
--- a/man/D24_2014.Rd
+++ b/man/D24_2014.Rd
@@ -46,6 +46,16 @@ m_D24_2 = mkinmod(D24 = mkinsub("DFOP", to = "DCP"),
   DCP = mkinsub("SFO", to = "DCA"),
   DCA = mkinsub("SFO"))
 print(m_D24_2)
+D24_2014_data <- lapply(D24_2014$ds, function(x) x$data)
+names(D24_2014_data) <- sapply(D24_2014$ds, function(x) x$title)
+f_D24_2014 <- mmkin(
+  models = list(
+    "SFO-SFO-SFO" = m_D24, 
+    "DFOP-SFO-SFO" = m_D24_2),
+  data = D24_2014_data,
+  quiet = TRUE)
+print(f_D24_2014)
+plot(f_D24_2014[, 3])
 }
 }
 \keyword{datasets}