diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-09 12:19:14 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-09 12:19:14 +0100 |
| commit | d8f31d1323998f33d07535f55c81be380d93ca45 (patch) | |
| tree | ef0e614878397974bb4040e146fb116bb4ee40c5 /tests/testthat/setup_script.R | |
| parent | 0fa8a770812775d697717ad723f7f61fb04b7fef (diff) | |
Adapt saemix interface to saemix 3.0 on CRAN
Diffstat (limited to 'tests/testthat/setup_script.R')
| -rw-r--r-- | tests/testthat/setup_script.R | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/tests/testthat/setup_script.R b/tests/testthat/setup_script.R index cb3713aa..693a2a25 100644 --- a/tests/testthat/setup_script.R +++ b/tests/testthat/setup_script.R @@ -198,18 +198,8 @@ nlme_biphasic <- nlme(mmkin_biphasic) if (saemix_available) { sfo_saem_1 <- saem(mmkin_sfo_1, quiet = TRUE, transformations = "saemix") - # With default control parameters, we do not get good results with mkin - # transformations here - dfop_saemix_1 <- saem(mmkin_dfop_1, quiet = TRUE, transformations = "mkin", - control = list( - displayProgress = FALSE, print = FALSE, save = FALSE, save.graphs = FALSE, - rw.init = 1, nbiter.saemix = c(600, 100)) - ) - dfop_saemix_2 <- saem(mmkin_dfop_1, quiet = TRUE, transformations = "saemix", - control = list( - displayProgress = FALSE, print = FALSE, save = FALSE, save.graphs = FALSE, - rw.init = 0.5, nbiter.saemix = c(600, 100)) - ) + dfop_saemix_1 <- saem(mmkin_dfop_1, quiet = TRUE, transformations = "mkin") + dfop_saemix_2 <- saem(mmkin_dfop_1, quiet = TRUE, transformations = "saemix") saem_biphasic_m <- saem(mmkin_biphasic, transformations = "mkin", quiet = TRUE) saem_biphasic_s <- saem(mmkin_biphasic, transformations = "saemix", quiet = TRUE) |