diff options
Diffstat (limited to 'tests/testthat')
| -rw-r--r-- | tests/testthat/test_multistart.R | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R index e5b44e78..e4885191 100644 --- a/tests/testthat/test_multistart.R +++ b/tests/testthat/test_multistart.R @@ -4,20 +4,30 @@ test_that("multistart works for saem.mmkin models", { set.seed(123456) saem_sfo_s_multi <- multistart(sfo_saem_1_reduced, n = 8, cores = n_cores, no_random_effect = "parent_0") + anova_sfo <- anova(sfo_saem_1, + sfo_saem_1_reduced, + best(saem_sfo_s_multi), + test = TRUE + ) + expect_true(anova_sfo[3, "Pr(>Chisq)"] > 0.5) - llhist_sfo <- function() llhist(saem_sfo_s_multi) - parhist_sfo <- function() parhist(saem_sfo_s_multi, ylim = c(0.5, 2)) - vdiffr::expect_doppelganger("llhist for sfo fit", llhist_sfo) - vdiffr::expect_doppelganger("parhist for sfo fit", parhist_sfo) - + skip_on_cran() # Save CRAN time set.seed(123456) saem_biphasic_m_multi <- multistart(saem_biphasic_m, n = 8, cores = n_cores) expect_known_output(print(saem_biphasic_m_multi), file = "print_multistart_biphasic.txt") - skip_on_cran() - skip_on_travis() + anova_biphasic <- anova(saem_biphasic_m, + best(saem_biphasic_m_multi)) + + expect_true(anova_biphasic[2, "AIC"] < anova_biphasic[1, "AIC"]) + skip_on_travis() # Plots are platform dependent + + llhist_sfo <- function() llhist(saem_sfo_s_multi) + parhist_sfo <- function() parhist(saem_sfo_s_multi, ylim = c(0.5, 2)) + vdiffr::expect_doppelganger("llhist for sfo fit", llhist_sfo) + vdiffr::expect_doppelganger("parhist for sfo fit", parhist_sfo) llhist_biphasic <- function() llhist(saem_biphasic_m_multi) parhist_biphasic <- function() parhist(saem_biphasic_m_multi, |