diff options
Diffstat (limited to 'inst/web/mmkin.html')
| -rw-r--r-- | inst/web/mmkin.html | 30 |
1 files changed, 21 insertions, 9 deletions
diff --git a/inst/web/mmkin.html b/inst/web/mmkin.html index 754be268..b3e7a6fd 100644 --- a/inst/web/mmkin.html +++ b/inst/web/mmkin.html @@ -2,7 +2,7 @@ <html lang="en"> <head> <meta charset="utf-8"> -<title>mmkin. mkin 0.9.42</title> +<title>mmkin. mkin 0.9.43</title> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta name="author" content=" Johannes Ranke @@ -34,7 +34,7 @@ <div class="navbar"> <div class="navbar-inner"> <div class="container"> - <a class="brand" href="#">mkin 0.9.42</a> + <a class="brand" href="#">mkin 0.9.43</a> <div class="nav"> <ul class="nav"> <li><a href="index.html"><i class="icon-home icon-white"></i> Index</a></li> @@ -107,24 +107,36 @@ <h2 id="examples">Examples</h2> <pre class="examples"><div class='input'>## Not run: -# m_synth_SFO_lin <- mkinmod(parent = list(type = "SFO", to = "M1"), -# M1 = list(type = "SFO", to = "M2"), -# M2 = list(type = "SFO"), use_of_ff = "max") +# m_synth_SFO_lin <- mkinmod(parent = mkinsub("SFO", "M1"), +# M1 = mkinsub("SFO", "M2"), +# M2 = mkinsub("SFO"), use_of_ff = "max") # -# m_synth_FOMC_lin <- mkinmod(parent = list(type = "FOMC", to = "M1"), -# M1 = list(type = "SFO", to = "M2"), -# M2 = list(type = "SFO"), use_of_ff = "max") +# m_synth_FOMC_lin <- mkinmod(parent = mkinsub("FOMC", "M1"), +# M1 = mkinsub("SFO", "M2"), +# M2 = mkinsub("SFO"), use_of_ff = "max") # # 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) +# names(datasets) <- paste("Dataset", 1:3) # -# 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, ]) +# plot(fits.0[1, ], obs_var = c("M1", "M2")) +# plot(fits.0[, 1]) +# # Use double brackets to extract a single mkinfit object, which will be plotted +# # by plot.mkinfit +# plot(fits.0[[1, 1]], sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE) +# # Plotting with mmkin (single brackets, extracting an mmkin object) does not +# # allow to plot the observed variables separately +# plot(fits.0[1, 1]) # ## End(Not run) </div></pre> </div> |