diff options
Diffstat (limited to 'man/mmkin.Rd')
| -rw-r--r-- | man/mmkin.Rd | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/man/mmkin.Rd b/man/mmkin.Rd index f701890a..44caf8d2 100644 --- a/man/mmkin.Rd +++ b/man/mmkin.Rd @@ -56,13 +56,19 @@ m_synth_FOMC_lin <- mkinmod(parent = list(type = "FOMC", to = "M1"), models <- list(SFO_lin = m_synth_SFO_lin, FOMC_lin = m_synth_FOMC_lin) datasets <- lapply(synthetic_data_for_UBA_2014[1:3], function(x) x$data) -time_default <- system.time(fits <- mmkin(models, datasets)) +time_default <- system.time(fits.0 <- mmkin(models, datasets)) time_1 <- system.time(fits.1 <- mmkin(models, datasets, cores = 1)) time_default time_1 endpoints(fits[["SFO_lin", 2]]) + +# Plot.mkinfit handles rows or columns of mmkin result objects +plot(fits.0[1, ]) +# Double brackets to select a single mkinfit object, which will be +# plotted by plot.mkinfit +plot(fits.0[[1, 1]], sep_obs = TRUE, show_residuals = TRUE) } } \keyword{ optimize } |