diff options
Diffstat (limited to 'tests/testthat/test_multistart.R')
| -rw-r--r-- | tests/testthat/test_multistart.R | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R index dda0ea23..36aa63f7 100644 --- a/tests/testthat/test_multistart.R +++ b/tests/testthat/test_multistart.R @@ -44,13 +44,16 @@ test_that("multistart works for saem.mmkin models", { vdiffr::expect_doppelganger("mixed model fit for saem object with mkin transformations", plot_dfop_sfo_saem_m) llhist_sfo <- function() llhist(saem_sfo_s_multi) - parplot_sfo <- function() parplot(saem_sfo_s_multi, ylim = c(0.5, 2)) + parplot_sfo <- function() parplot(saem_sfo_s_multi, ylim = c(0.5, 2), las = 1) vdiffr::expect_doppelganger("llhist for sfo fit", llhist_sfo) vdiffr::expect_doppelganger("parplot for sfo fit", parplot_sfo) llhist_dfop_sfo <- function() llhist(saem_dfop_sfo_m_multi) - parplot_dfop_sfo <- function() parplot(saem_dfop_sfo_m_multi, - ylim = c(0.5, 2), llquant = 0.5) + parplot_dfop_sfo <- function() { + par(mar = c(10.1, 4.1, 2.1, 2.1)) + parplot(saem_dfop_sfo_m_multi, + ylim = c(0.5, 2), llquant = 0.5, las = 2) + } vdiffr::expect_doppelganger("llhist for dfop sfo fit", llhist_dfop_sfo) vdiffr::expect_doppelganger("parplot for dfop sfo fit", parplot_dfop_sfo) |