From c4a35c0e141a4bb05ba508914bebdc2884109e76 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 14 Sep 2018 11:38:43 +0200 Subject: Exclude more example code from CRAN checks to avoid NOTES about long execution times. Static documentation rebuilt by pkgdown with run_dont_run = TRUE --- docs/reference/mmkin.html | 43 +++++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 20 deletions(-) (limited to 'docs/reference/mmkin.html') diff --git a/docs/reference/mmkin.html b/docs/reference/mmkin.html index 557da0d7..621571c1 100644 --- a/docs/reference/mmkin.html +++ b/docs/reference/mmkin.html @@ -62,7 +62,7 @@ mkin - 0.9.47.3 + 0.9.47.4 @@ -175,15 +175,12 @@

Examples

- 
# NOT RUN {
-m_synth_SFO_lin <- mkinmod(parent = mkinsub("SFO", "M1"),
+    
m_synth_SFO_lin <- mkinmod(parent = mkinsub("SFO", "M1"),
                            M1 = mkinsub("SFO", "M2"),
-                           M2 = mkinsub("SFO"), use_of_ff = "max")
-
+                           M2 = mkinsub("SFO"), use_of_ff = "max")
#> Successfully compiled differential equation model from auto-generated C code.

 m_synth_FOMC_lin <- mkinmod(parent = mkinsub("FOMC", "M1"),
                             M1 = mkinsub("SFO", "M2"),
-                            M2 = mkinsub("SFO"), use_of_ff = "max")
-
+                            M2 = mkinsub("SFO"), use_of_ff = "max")
#> Successfully compiled differential equation model from auto-generated C code.

 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)
@@ -191,23 +188,29 @@
 time_default <- system.time(fits.0 <- mmkin(models, datasets, quiet = TRUE))
 time_1 <- system.time(fits.4 <- mmkin(models, datasets, cores = 1, quiet = TRUE))
 
-time_default
-time_1
-
-endpoints(fits.0[["SFO_lin", 2]])
-
+time_default
#>        User      System verstrichen 
+#>       0.046       0.033       6.654 
time_1
#>        User      System verstrichen 
+#>      20.150       0.000      20.163 

+endpoints(fits.0[["SFO_lin", 2]])
#> $ff
+#>   parent_M1 parent_sink       M1_M2     M1_sink 
+#>   0.7340480   0.2659520   0.7505686   0.2494314 
+#> 
+#> $SFORB
+#> logical(0)
+#> 
+#> $distimes
+#>              DT50       DT90
+#> parent  0.8777689   2.915885
+#> M1      2.3257453   7.725959
+#> M2     33.7200874 112.015706
+#> 

 # 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
+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 and can be plotted using plot_sep
-plot(fits.0[[1, 1]], sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE)
-plot_sep(fits.0[[1, 1]])
+plot(fits.0[[1, 1]], sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE)
plot_sep(fits.0[[1, 1]])
 # Plotting with mmkin (single brackets, extracting an mmkin object) does not
 # allow to plot the observed variables separately
-plot(fits.0[1, 1])
-# }

+plot(fits.0[1, 1])