From df2beb74dcb6a65d6b066b55ccd7373dd79a6dab Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 6 Feb 2021 09:23:48 +0100 Subject: 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). --- tests/testthat/print_mmkin_parent.txt | 12 +++++------- tests/testthat/test_confidence.R | 9 --------- tests/testthat/test_mixed.R | 2 +- 3 files changed, 6 insertions(+), 17 deletions(-) (limited to 'tests') 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") }) -- cgit v1.2.1