From 4030a3083d7ca51bc5d606dd95a877fb00967003 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 25 Oct 2022 23:26:21 +0200 Subject: Test multistart method --- tests/testthat/print_multistart_biphasic.txt | 4 ++++ tests/testthat/test_multistart.R | 15 +++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 tests/testthat/print_multistart_biphasic.txt create mode 100644 tests/testthat/test_multistart.R (limited to 'tests') diff --git a/tests/testthat/print_multistart_biphasic.txt b/tests/testthat/print_multistart_biphasic.txt new file mode 100644 index 00000000..b4344f22 --- /dev/null +++ b/tests/testthat/print_multistart_biphasic.txt @@ -0,0 +1,4 @@ + object with 8 fits: +OK + 8 +OK: Fit terminated successfully 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) +}) -- cgit v1.2.1