diff options
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") }) |