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/test_data_from_UBA_2014.html | 70 ++++++++++------------------- 1 file changed, 24 insertions(+), 46 deletions(-) (limited to 'docs/reference/test_data_from_UBA_2014.html') diff --git a/docs/reference/test_data_from_UBA_2014.html b/docs/reference/test_data_from_UBA_2014.html index ed2ccd9c..c4292d9c 100644 --- a/docs/reference/test_data_from_UBA_2014.html +++ b/docs/reference/test_data_from_UBA_2014.html @@ -18,12 +18,20 @@ + + + + + + + @@ -123,7 +131,7 @@

Examples

- 

+    
  
# NOT RUN {
   # This is a level P-II evaluation of the dataset according to the FOCUS kinetics
   # guidance. Due to the strong correlation of the parameter estimates, the
   # covariance matrix is not returned. Note that level P-II evaluations are
@@ -131,57 +139,27 @@
   # large parameter correlations, among other reasons (e.g. the adequacy of the
   # model).
   m_ws <- mkinmod(parent_w = mkinsub("SFO", "parent_s"),
-                  parent_s = mkinsub("SFO", "parent_w"))
#> Successfully compiled differential equation model from auto-generated C code.
  f_river <- mkinfit(m_ws, test_data_from_UBA_2014[[1]]$data, quiet = TRUE)
-  plot_sep(f_river)

-  summary(f_river)$bpar
#>                         Estimate se_notrans      t value       Pr(>t) Lower
-#> parent_w_0          9.598567e+01 2.33959810 4.102657e+01 9.568973e-19    NA
-#> k_parent_w_sink     3.603743e-01 0.03497716 1.030313e+01 4.988281e-09    NA
-#> k_parent_w_parent_s 6.031370e-02 0.01746026 3.454342e+00 1.514738e-03    NA
-#> k_parent_s_sink     5.099834e-11 0.10381939 4.912217e-10 5.000000e-01    NA
-#> k_parent_s_parent_w 7.419672e-02 0.11338174 6.543974e-01 2.608057e-01    NA
-#>                     Upper
-#> parent_w_0             NA
-#> k_parent_w_sink        NA
-#> k_parent_w_parent_s    NA
-#> k_parent_s_sink        NA
-#> k_parent_s_parent_w    NA
  mkinerrmin(f_river)
#>             err.min n.optim df
-#> All data 0.09246946       5  6
-#> parent_w 0.06377096       3  3
-#> parent_s 0.20882324       2  3

+                  parent_s = mkinsub("SFO", "parent_w"))
+  f_river <- mkinfit(m_ws, test_data_from_UBA_2014[[1]]$data, quiet = TRUE)
+  plot_sep(f_river)
+
+  summary(f_river)$bpar
+  mkinerrmin(f_river)
+
   # This is the evaluation used for the validation of software packages
   # in the expertise from 2014
   m_soil <- mkinmod(parent = mkinsub("SFO", c("M1", "M2")),
                     M1 = mkinsub("SFO", "M3"),
                     M2 = mkinsub("SFO", "M3"),
                     M3 = mkinsub("SFO"),
-                    use_of_ff = "max")
#> Successfully compiled differential equation model from auto-generated C code.

+                    use_of_ff = "max")
+
   f_soil <- mkinfit(m_soil, test_data_from_UBA_2014[[3]]$data, quiet = TRUE)
-  plot_sep(f_soil, lpos = c("topright", "topright", "topright", "bottomright"))
  summary(f_soil)$bpar
#>                   Estimate  se_notrans    t value       Pr(>t)        Lower
-#> parent_0       76.55425583 0.943443834 81.1434164 4.422340e-30 74.602593306
-#> k_parent        0.12081956 0.004815515 25.0896457 1.639665e-18  0.111257526
-#> k_M1            0.84258650 0.930121206  0.9058889 1.871937e-01  0.085876305
-#> k_M2            0.04210878 0.013729902  3.0669396 2.729137e-03  0.021450631
-#> k_M3            0.01122919 0.008044866  1.3958205 8.804914e-02  0.002550985
-#> f_parent_to_M1  0.32240199 0.278620411  1.1571370 1.295466e-01           NA
-#> f_parent_to_M2  0.16099854 0.030548889  5.2701930 1.196191e-05           NA
-#> f_M1_to_M3      0.27921500 0.314732717  0.8871496 1.920907e-01  0.015016888
-#> f_M2_to_M3      0.55641332 0.650247079  0.8556952 2.004966e-01  0.005360551
-#>                      Upper
-#> parent_0       78.50591836
-#> k_parent        0.13120340
-#> k_M1            8.26714671
-#> k_M2            0.08266187
-#> k_M3            0.04942980
-#> f_parent_to_M1          NA
-#> f_parent_to_M2          NA
-#> f_M1_to_M3      0.90777217
-#> f_M2_to_M3      0.99658634
  mkinerrmin(f_soil)
#>             err.min n.optim df
-#> All data 0.09649963       9 20
-#> parent   0.04721283       2  6
-#> M1       0.26551209       2  5
-#> M2       0.20327575       2  5
-#> M3       0.05196549       3  4
  
-
+ plot_sep(f_soil, lpos = c("topright", "topright", "topright", "bottomright")) + summary(f_soil)$bpar + mkinerrmin(f_soil) + +# }
-

Site built with pkgdown.

+

Site built with pkgdown.

-- cgit v1.2.1