diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-02-06 09:23:48 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-02-06 09:23:48 +0100 |
| commit | df2beb74dcb6a65d6b066b55ccd7373dd79a6dab (patch) | |
| tree | 77cabd09deb7bd07c0a1129f39dcde245245b8da /tests | |
| parent | ac183c732317cf6ede26a2ee127604a407f0a6b3 (diff) | |
Address issue revealed by additional tests on CRAN
Remove tests relying on non-convergence of the FOMC fit to the FOCUS A
dataset, as this is platform dependent. After the upgrade, the fit
converges on this system as well, although neither ATLAS is used, nor R
was configured disabling long doubles (these were the conditions under
which the tests failed on CRAN).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/print_mmkin_parent.txt | 12 | ||||
| -rw-r--r-- | tests/testthat/test_confidence.R | 9 | ||||
| -rw-r--r-- | tests/testthat/test_mixed.R | 2 |
3 files changed, 6 insertions, 17 deletions
diff --git a/tests/testthat/print_mmkin_parent.txt b/tests/testthat/print_mmkin_parent.txt index 620a657a..ae1fee7d 100644 --- a/tests/testthat/print_mmkin_parent.txt +++ b/tests/testthat/print_mmkin_parent.txt @@ -2,12 +2,10 @@ Status of individual fits: dataset -model FOCUS_A FOCUS_C FOCUS_D - SFO OK OK OK - FOMC C OK OK - DFOP OK OK OK - HS OK OK OK +model FOCUS_C FOCUS_D + SFO OK OK + FOMC OK OK + DFOP OK OK + HS OK OK OK: No warnings -C: Optimisation did not converge: -false convergence (8) diff --git a/tests/testthat/test_confidence.R b/tests/testthat/test_confidence.R index 54be675c..36e9738d 100644 --- a/tests/testthat/test_confidence.R +++ b/tests/testthat/test_confidence.R @@ -1,14 +1,5 @@ context("Confidence intervals and p-values") -test_that("Some special cases of confidence interval calculation work", { - - tmp <- expect_warning(mkinfit("FOMC", FOCUS_2006_A, quiet = TRUE), "not converge") - - expect_equivalent( - confint(tmp, transform = FALSE), - matrix(rep(NA, 8), nrow = 4)) -}) - test_that("The confint method 'quadratic' is consistent with the summary", { expect_equivalent( confint(fit_nw_1, parm = "parent_0", method = "quadratic"), diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index ca0072ef..6f28d0c3 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -1,7 +1,7 @@ context("Nonlinear mixed-effects models") test_that("Print methods work", { - expect_known_output(print(fits, digits = 2), "print_mmkin_parent.txt") + expect_known_output(print(fits[, 2:3], digits = 2), "print_mmkin_parent.txt") expect_known_output(print(mmkin_biphasic_mixed, digits = 2), "print_mmkin_biphasic_mixed.txt") expect_known_output(print(nlme_biphasic, digits = 1), "print_nlme_biphasic.txt") }) |