diff options
Diffstat (limited to 'man/D24_2014.Rd')
| -rw-r--r-- | man/D24_2014.Rd | 10 |
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} |