diff options
Diffstat (limited to 'tests/testthat/test_multistart.R')
| -rw-r--r-- | tests/testthat/test_multistart.R | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R new file mode 100644 index 00000000..04f08aa7 --- /dev/null +++ b/tests/testthat/test_multistart.R @@ -0,0 +1,15 @@ +test_that("multistart works for saem.mmix models", { + 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() + + llhist_biphasic <- function() llhist(saem_biphasic_m_multi) + parhist_biphasic <- function() parhist(saem_biphasic_m_multi, + ylim = c(0.5, 2)) + + vdiffr::expect_doppelganger("llhist for biphasic saemix fit", llhist_biphasic) + vdiffr::expect_doppelganger("parhist for biphasic saemix fit", parhist_biphasic) +}) |