blob: e0b1ecd7497c059882cc1f9b003cf322a7c4255a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
context("Multistart method for saem.mmkin models")
test_that("multistart works for saem.mmkin 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)
})
|
