Add another NAFTA dataset + test

1 files changed, 26 insertions, 17 deletions

diff --git a/test.log b/test.log
index 63f5b542..77981c86 100644
--- a/test.log
+++ b/test.log
@@ -1,15 +1,24 @@
 Loading mkin
 Testing mkin
 ✔ | OK F W S | Context
-
⠏ |  0       | Export dataset for reading into CAKE
⠋ |  1       | Export dataset for reading into CAKE
⠙ |  1   1   | Export dataset for reading into CAKE
⠙ |  2       | Export dataset for reading into CAKE
⠹ |  3       | Export dataset for reading into CAKE
⠸ |  4       | Export dataset for reading into CAKE
⠼ |  5       | Export dataset for reading into CAKE
⠴ |  6       | Export dataset for reading into CAKE
⠦ |  7       | Export dataset for reading into CAKE
⠧ |  8       | Export dataset for reading into CAKE
⠇ |  8     1 | Export dataset for reading into CAKE
✔ |  8     1 | Export dataset for reading into CAKE [1.4 s]
-────────────────────────────────────────────────────────────────────────────────
-test_CAKE_export.R:50: skip: Test data from Appendix D are correctly evaluated
-Figure not generated yet: plot-nafta-analysis.svg
-Please run `vdiffr::manage_cases()` to validate the figure.
-────────────────────────────────────────────────────────────────────────────────
-
⠏ |  0       | Calculation of FOCUS chi2 error levels
⠋ |  1       | Calculation of FOCUS chi2 error levels
⠙ |  2       | Calculation of FOCUS chi2 error levels
✔ |  2       | Calculation of FOCUS chi2 error levels [2.2 s]
-
⠏ |  0       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠋ |  1       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠙ |  2       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠹ |  3       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠸ |  4       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠼ |  5       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠴ |  6       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠦ |  7       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠧ |  8       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠇ |  9       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠏ | 10       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠋ | 11       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠙ | 12       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠹ | 13       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
✔ | 13       | Results for FOCUS D established in expertise for UBA (Ranke 2014) [7.8 s]
-
⠏ |  0       | Iteratively reweighted least squares (IRLS) fitting
⠋ |  1       | Iteratively reweighted least squares (IRLS) fitting
⠙ |  2       | Iteratively reweighted least squares (IRLS) fitting
⠹ |  2     1 | Iteratively reweighted least squares (IRLS) fitting
✔ |  2     1 | Iteratively reweighted least squares (IRLS) fitting [15.9 s]
+
⠏ |  0       | Export dataset for reading into CAKE
⠋ |  1       | Export dataset for reading into CAKE
⠙ |  1 1     | Export dataset for reading into CAKE
✖ |  1 1     | Export dataset for reading into CAKE
+────────────────────────────────────────────────────────────────────────────────
+test_CAKE_export.R:32: error: Test data from Appendix D are correctly evaluated
+Objekt 'MRID_555555' nicht gefunden
+1: expect_message(res <- nafta(MRID_555555, "MRID 555555")) at /home/jranke/git/mkin/tests/testthat/test_CAKE_export.R:32
+2: quasi_capture(enquo(object), capture_messages, label = label)
+3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
+4: withCallingHandlers(code, message = function(condition) {
+       out$push(condition)
+       invokeRestart("muffleMessage")
+   })
+5: eval_bare(get_expr(quo), get_env(quo))
+6: nafta(MRID_555555, "MRID 555555")
+7: levels(ds$name) at /home/jranke/git/mkin/R/nafta.R:20
+────────────────────────────────────────────────────────────────────────────────
+
⠏ |  0       | Calculation of FOCUS chi2 error levels
⠋ |  1       | Calculation of FOCUS chi2 error levels
⠙ |  2       | Calculation of FOCUS chi2 error levels
✔ |  2       | Calculation of FOCUS chi2 error levels [2.3 s]
+
⠏ |  0       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠋ |  1       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠙ |  2       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠹ |  3       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠸ |  4       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠼ |  5       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠴ |  6       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠦ |  7       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠧ |  8       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠇ |  9       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠏ | 10       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠋ | 11       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠙ | 12       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠹ | 13       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
⠸ | 14       | Results for FOCUS D established in expertise for UBA (Ranke 2014)
✔ | 14       | Results for FOCUS D established in expertise for UBA (Ranke 2014) [7.9 s]
+
⠏ |  0       | Iteratively reweighted least squares (IRLS) fitting
⠋ |  1       | Iteratively reweighted least squares (IRLS) fitting
⠙ |  2       | Iteratively reweighted least squares (IRLS) fitting
⠹ |  2     1 | Iteratively reweighted least squares (IRLS) fitting
✔ |  2     1 | Iteratively reweighted least squares (IRLS) fitting [16.0 s]
 ────────────────────────────────────────────────────────────────────────────────
 test_irls.R:48: skip: Reweighting method 'tc' works
 Too much trouble with datasets that are randomly generated
@@ -20,9 +29,9 @@ test_logistic.R:41: skip: The logistic fit can be done via differential equation
 Skip slow fit of logistic model using deSolve without compilation
 ────────────────────────────────────────────────────────────────────────────────
 
⠏ |  0       | Model predictions with mkinpredict
⠋ |  1       | Model predictions with mkinpredict
⠙ |  2       | Model predictions with mkinpredict
⠹ |  3       | Model predictions with mkinpredict
✔ |  3       | Model predictions with mkinpredict [0.3 s]
-
⠏ |  0       | Evaluations according to 2015 NAFTA guidance
⠋ |  1       | Evaluations according to 2015 NAFTA guidance
⠙ |  1   1   | Evaluations according to 2015 NAFTA guidance
⠙ |  2       | Evaluations according to 2015 NAFTA guidance
⠹ |  3       | Evaluations according to 2015 NAFTA guidance
⠸ |  4       | Evaluations according to 2015 NAFTA guidance
⠼ |  5       | Evaluations according to 2015 NAFTA guidance
⠴ |  6       | Evaluations according to 2015 NAFTA guidance
⠦ |  7       | Evaluations according to 2015 NAFTA guidance
⠧ |  8       | Evaluations according to 2015 NAFTA guidance
⠇ |  9       | Evaluations according to 2015 NAFTA guidance
✔ |  9       | Evaluations according to 2015 NAFTA guidance [0.8 s]
-
⠏ |  0       | Fitting of parent only models
⠋ |  1       | Fitting of parent only models
⠙ |  2       | Fitting of parent only models
⠹ |  3       | Fitting of parent only models
⠸ |  4       | Fitting of parent only models
⠼ |  5       | Fitting of parent only models
⠴ |  6       | Fitting of parent only models
⠦ |  7       | Fitting of parent only models
⠧ |  8       | Fitting of parent only models
⠇ |  9       | Fitting of parent only models
⠏ | 10       | Fitting of parent only models
⠋ | 11       | Fitting of parent only models
⠙ | 12       | Fitting of parent only models
⠹ | 13       | Fitting of parent only models
⠸ | 14       | Fitting of parent only models
⠼ | 15       | Fitting of parent only models
⠴ | 16       | Fitting of parent only models
⠦ | 17       | Fitting of parent only models
⠧ | 18       | Fitting of parent only models
⠇ | 19       | Fitting of parent only models
⠏ | 20       | Fitting of parent only models
⠋ | 21       | Fitting of parent only models
✔ | 21       | Fitting of parent only models [23.7 s]
-
⠏ |  0       | Calculation of maximum time weighted average concentrations (TWAs)
⠋ |  1       | Calculation of maximum time weighted average concentrations (TWAs)
⠙ |  2       | Calculation of maximum time weighted average concentrations (TWAs)
⠹ |  3       | Calculation of maximum time weighted average concentrations (TWAs)
⠸ |  4       | Calculation of maximum time weighted average concentrations (TWAs)
⠼ |  5       | Calculation of maximum time weighted average concentrations (TWAs)
⠴ |  6       | Calculation of maximum time weighted average concentrations (TWAs)
⠦ |  7       | Calculation of maximum time weighted average concentrations (TWAs)
⠧ |  8       | Calculation of maximum time weighted average concentrations (TWAs)
✔ |  8       | Calculation of maximum time weighted average concentrations (TWAs) [7.2 s]
+
⠏ |  0       | Evaluations according to 2015 NAFTA guidance
⠋ |  1       | Evaluations according to 2015 NAFTA guidance
⠙ |  2       | Evaluations according to 2015 NAFTA guidance
⠹ |  3       | Evaluations according to 2015 NAFTA guidance
⠸ |  4       | Evaluations according to 2015 NAFTA guidance
⠼ |  5       | Evaluations according to 2015 NAFTA guidance
⠴ |  6       | Evaluations according to 2015 NAFTA guidance
⠦ |  7       | Evaluations according to 2015 NAFTA guidance
⠧ |  8       | Evaluations according to 2015 NAFTA guidance
⠇ |  9       | Evaluations according to 2015 NAFTA guidance
⠏ |  9   1   | Evaluations according to 2015 NAFTA guidance
⠏ | 10       | Evaluations according to 2015 NAFTA guidance
⠋ | 11       | Evaluations according to 2015 NAFTA guidance
⠙ | 12       | Evaluations according to 2015 NAFTA guidance
⠹ | 13       | Evaluations according to 2015 NAFTA guidance
⠸ | 14       | Evaluations according to 2015 NAFTA guidance
⠼ | 15       | Evaluations according to 2015 NAFTA guidance
⠴ | 16       | Evaluations according to 2015 NAFTA guidance
⠦ | 17       | Evaluations according to 2015 NAFTA guidance
✔ | 17       | Evaluations according to 2015 NAFTA guidance [1.5 s]
+
⠏ |  0       | Fitting of parent only models
⠋ |  1       | Fitting of parent only models
⠙ |  2       | Fitting of parent only models
⠹ |  3       | Fitting of parent only models
⠸ |  4       | Fitting of parent only models
⠼ |  5       | Fitting of parent only models
⠴ |  6       | Fitting of parent only models
⠦ |  7       | Fitting of parent only models
⠧ |  8       | Fitting of parent only models
⠇ |  9       | Fitting of parent only models
⠏ | 10       | Fitting of parent only models
⠋ | 11       | Fitting of parent only models
⠙ | 12       | Fitting of parent only models
⠹ | 13       | Fitting of parent only models
⠸ | 14       | Fitting of parent only models
⠼ | 15       | Fitting of parent only models
⠴ | 16       | Fitting of parent only models
⠦ | 17       | Fitting of parent only models
⠧ | 18       | Fitting of parent only models
⠇ | 19       | Fitting of parent only models
⠏ | 20       | Fitting of parent only models
⠋ | 21       | Fitting of parent only models
✔ | 21       | Fitting of parent only models [24.5 s]
+
⠏ |  0       | Calculation of maximum time weighted average concentrations (TWAs)
⠋ |  1       | Calculation of maximum time weighted average concentrations (TWAs)
⠙ |  2       | Calculation of maximum time weighted average concentrations (TWAs)
⠹ |  3       | Calculation of maximum time weighted average concentrations (TWAs)
⠸ |  4       | Calculation of maximum time weighted average concentrations (TWAs)
⠼ |  5       | Calculation of maximum time weighted average concentrations (TWAs)
⠴ |  6       | Calculation of maximum time weighted average concentrations (TWAs)
⠦ |  7       | Calculation of maximum time weighted average concentrations (TWAs)
⠧ |  8       | Calculation of maximum time weighted average concentrations (TWAs)
✔ |  8       | Calculation of maximum time weighted average concentrations (TWAs) [7.3 s]
 
⠏ |  0       | Summary
⠋ |  1       | Summary
✔ |  1       | Summary
 
⠏ |  0       | Plotting
⠋ |  1       | Plotting
⠙ |  1     1 | Plotting
⠹ |  2     1 | Plotting
⠸ |  3     1 | Plotting
✔ |  3     1 | Plotting [0.3 s]
 ────────────────────────────────────────────────────────────────────────────────
@@ -31,12 +40,12 @@ Figure not generated yet: mkinparplot-for-focus-c-sfo.svg
 Please run `vdiffr::manage_cases()` to validate the figure.
 ────────────────────────────────────────────────────────────────────────────────
 
⠏ |  0       | Complex test case from Schaefer et al. (2007) Piacenza paper
⠋ |  1       | Complex test case from Schaefer et al. (2007) Piacenza paper
⠙ |  2       | Complex test case from Schaefer et al. (2007) Piacenza paper
✔ |  2       | Complex test case from Schaefer et al. (2007) Piacenza paper [5.9 s]
-
⠏ |  0       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠋ |  1       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠙ |  2       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠹ |  3       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠸ |  4       | Results for synthetic data established in expertise for UBA (Ranke 2014)
✔ |  4       | Results for synthetic data established in expertise for UBA (Ranke 2014) [7.3 s]
+
⠏ |  0       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠋ |  1       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠙ |  2       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠹ |  3       | Results for synthetic data established in expertise for UBA (Ranke 2014)
⠸ |  4       | Results for synthetic data established in expertise for UBA (Ranke 2014)
✔ |  4       | Results for synthetic data established in expertise for UBA (Ranke 2014) [7.5 s]
 
 ══ Results ═════════════════════════════════════════════════════════════════════
-Duration: 74.6 s
+Duration: 75.2 s
 
-OK:       77
-Failed:   0
+OK:       79
+Failed:   1
 Warnings: 0
-Skipped:  4
+Skipped:  3