From 6b910647d22e54a8c0b9c7f837af8dce150d5ee2 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 26 Oct 2022 01:17:30 +0200 Subject: Try to make multistart (more) reproducible --- .../multistart/llhist-for-biphasic-saemix-fit.svg | 42 ++-- .../multistart/parhist-for-biphasic-saemix-fit.svg | 239 ++++++++++----------- tests/testthat/test_multistart.R | 1 + 3 files changed, 139 insertions(+), 143 deletions(-) (limited to 'tests') diff --git a/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg b/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg index 154eb60d..4767e229 100644 --- a/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg +++ b/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg @@ -19,26 +19,24 @@ Frequency of log likelihoods - - - - - - - --1190 --1185 --1180 --1175 --1170 --1165 + + + + + +-1190 +-1180 +-1170 +-1160 - + + 0 -1 -2 +1 +2 +3 @@ -46,13 +44,11 @@ - - - - - - - + + + + + original log likelihood diff --git a/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg b/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg index aa2bc3d4..75519b07 100644 --- a/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg +++ b/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg @@ -25,106 +25,105 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -164,26 +163,26 @@ - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R index e0b1ecd7..8408413f 100644 --- a/tests/testthat/test_multistart.R +++ b/tests/testthat/test_multistart.R @@ -1,6 +1,7 @@ context("Multistart method for saem.mmkin models") test_that("multistart works for saem.mmkin models", { + set.seed(123456) saem_biphasic_m_multi <- multistart(saem_biphasic_m, n = 8, cores = n_cores) expect_known_output(print(saem_biphasic_m_multi), -- cgit v1.2.1