diff options
Diffstat (limited to 'R/D24_2014.R')
| -rw-r--r-- | R/D24_2014.R | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/R/D24_2014.R b/R/D24_2014.R index aaed029c..973cf47d 100644 --- a/R/D24_2014.R +++ b/R/D24_2014.R @@ -33,5 +33,15 @@ #' 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]) #' } "D24_2014" |