diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-10-26 09:07:04 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-10-26 09:07:04 +0200 |
| commit | 3c5b2596daef4ed0ee5c38a7141fdf48dbe7c070 (patch) | |
| tree | af1228baf8b057fd183f8cf6e3ecaa9495b7f030 /tests/testthat/test_multistart.R | |
| parent | 06df20703a9390692ab1ece3ae1702a71fff05ae (diff) | |
Reduced sfo model for multistart.saem.mkin tests
Diffstat (limited to 'tests/testthat/test_multistart.R')
| -rw-r--r-- | tests/testthat/test_multistart.R | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R index 60fdefdc..e5b44e78 100644 --- a/tests/testthat/test_multistart.R +++ b/tests/testthat/test_multistart.R @@ -1,10 +1,14 @@ context("Multistart method for saem.mmkin models") test_that("multistart works for saem.mmkin models", { - saem_sfo_s_multi <- multistart(sfo_saem_1, n = 8, cores = n_cores) + set.seed(123456) + saem_sfo_s_multi <- multistart(sfo_saem_1_reduced, n = 8, cores = n_cores, + no_random_effect = "parent_0") - llhist_sfo <- function() llhist(saem_sfo_s_multi, xlim = c(-644, -647)) + 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) set.seed(123456) saem_biphasic_m_multi <- multistart(saem_biphasic_m, n = 8, |