From 380a29e81f88cd80c9c6915200ddc7054c8a085a Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 24 Apr 2019 21:03:43 +0200 Subject: Improve output and update tests Remove skipped tests as I do not intend to reactivate them --- tests/testthat/test_FOCUS_D_UBA_expertise.R | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'tests/testthat/test_FOCUS_D_UBA_expertise.R') 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)) -}) -- cgit v1.2.1