aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_mkinfit_errors.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_mkinfit_errors.R')
-rw-r--r--tests/testthat/test_mkinfit_errors.R16
1 files changed, 0 insertions, 16 deletions
diff --git a/tests/testthat/test_mkinfit_errors.R b/tests/testthat/test_mkinfit_errors.R
index 85ee574e..4c8177bd 100644
--- a/tests/testthat/test_mkinfit_errors.R
+++ b/tests/testthat/test_mkinfit_errors.R
@@ -35,19 +35,3 @@ test_that("mkinfit warns if a specified initial parameter value is not in the mo
expect_warning(mkinfit("SFO", FOCUS_2006_A, parms.ini = c(k_xy = 0.1), quiet = TRUE),
"not used in the model")
})
-
-test_that("We get reproducible output if quiet = FALSE", {
- # We cannot expect parameter and sum of squares traces to be the same across platforms
- skip_on_cran()
- skip_on_travis()
- expect_known_output(mkinfit("DFOP", FOCUS_2006_C, reweight.method = "tc", trace_parms = TRUE),
- file = "DFOP_FOCUS_C_messages.txt")
-})
-
-test_that("We get warnings in case of overparameterisation", {
- skip_on_cran() # On winbuilder the following fit does not give a warning
- skip_on_travis() # Neither on travis
- expect_warning(f <- mkinfit("FOMC", FOCUS_2006_A, quiet = TRUE), "not converge")
- # We do get Hessians and the related output after the switch to using numDeriv::hessian()
- #s2 <- expect_warning(summary(mkinfit("DFOP", FOCUS_2006_A, quiet = TRUE)), "singular system")
-})

Contact - Imprint