From 6653ff2507f45eae909f491a9af3f1eb5358a600 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 1 Mar 2018 14:32:46 +0100 Subject: Static documentation rebuilt using current pkgdown::build_site() --- docs/reference/mmkin.html | 66 +++++++++++++++++++++++------------------------ 1 file changed, 33 insertions(+), 33 deletions(-) (limited to 'docs/reference/mmkin.html') diff --git a/docs/reference/mmkin.html b/docs/reference/mmkin.html index d649563f..e97e3f81 100644 --- a/docs/reference/mmkin.html +++ b/docs/reference/mmkin.html @@ -18,12 +18,20 @@ + + + + + + + @@ -69,6 +77,9 @@
  • Example evaluation of FOCUS Laboratory Data L1 to L3
    • +
  • + Example evaluation of FOCUS Example Dataset Z +
  • Performance benefit by using compiled model definitions in mkin
    • @@ -83,12 +94,7 @@ @@ -152,45 +158,39 @@

    Examples

    - 
    
+    
    # NOT RUN {
 m_synth_SFO_lin <- mkinmod(parent = mkinsub("SFO", "M1"),
                            M1 = mkinsub("SFO", "M2"),
-                           M2 = mkinsub("SFO"), use_of_ff = "max")
    #> Successfully compiled differential equation model from auto-generated C code.
    
+                           M2 = mkinsub("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")
    #> Successfully compiled differential equation model from auto-generated C code.
    
+                            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.0 <- mmkin(models, datasets, quiet = TRUE))
-time_1 <- system.time(fits.4 <- mmkin(models, datasets, cores = 1, quiet = TRUE))
    #> Warning: Optimisation by method Port did not converge.
-#> Convergence code is 1
    #> Warning: Optimisation by method Port did not converge.
-#> Convergence code is 1
    
-time_default
    #>    user  system elapsed 
-#>  15.992   0.188  11.440 
    time_1
    #>    user  system elapsed 
-#>  24.576   0.000  24.578 
    
-endpoints(fits.0[["SFO_lin", 2]])
    #> $ff
-#>   parent_M1 parent_sink       M1_M2     M1_sink 
-#>   0.7340479   0.2659521   0.7505687   0.2494313 
-#> 
-#> $SFORB
-#> logical(0)
-#> 
-#> $distimes
-#>              DT50       DT90
-#> parent  0.8777689   2.915885
-#> M1      2.3257456   7.725960
-#> M2     33.7200862 112.015702
-#> 
    
+time_1 <- system.time(fits.4 <- mmkin(models, datasets, cores = 1, quiet = TRUE))
+
+time_default
+time_1
+
+endpoints(fits.0[["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
+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]) +# }
    -

    Site built with pkgdown.

    +

    Site built with pkgdown.

    -- cgit v1.2.1