aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_FOCUS_D_UBA_expertise.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_FOCUS_D_UBA_expertise.R')
-rw-r--r--tests/testthat/test_FOCUS_D_UBA_expertise.R19
1 files changed, 0 insertions, 19 deletions
diff --git a/tests/testthat/test_FOCUS_D_UBA_expertise.R b/tests/testthat/test_FOCUS_D_UBA_expertise.R
index 3a49078c..a282f5e7 100644
--- a/tests/testthat/test_FOCUS_D_UBA_expertise.R
+++ b/tests/testthat/test_FOCUS_D_UBA_expertise.R
@@ -74,22 +74,3 @@ test_that("Fits without internal transformations are correct for FOCUS D", {
# References:
# Ranke (2014) Prüfung und Validierung von Modellierungssoftware als Alternative
# zu ModelMaker 4.0, Umweltbundesamt Projektnummer 27452
-
-test_that("The t-value for fits using internal transformations corresponds with results from FME, synthetic data", {
- skip_on_cran()
- m_synth_DFOP_par.minff <- mkinmod(parent = mkinsub("DFOP", c("M1", "M2")),
- M1 = mkinsub("SFO"),
- M2 = mkinsub("SFO"),
- use_of_ff = "min", quiet = TRUE)
-
- fit_DFOP_par_c_2 <- mkinfit(m_synth_DFOP_par.minff,
- synthetic_data_for_UBA_2014[[12]]$data,
- quiet = TRUE)
-
- skip("Hessian matrices and df calculations differ from those in FME")
- # Note that the k1 and k2 are exchanged in the untransformed fit evaluated with FME for this test
- expect_equal(signif(summary(fit_DFOP_par_c_2)$bpar[1:7, "t value"], 5),
- c(parent_0 = 80.054, k_M1_sink = 12.291, k_M2_sink = 10.588,
- f_parent_to_M1 = 21.4960, f_parent_to_M2 = 24.0890,
- k1 = 16.1450, k2 = 8.1747))
-})

Contact - Imprint