diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 20:46:39 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 20:46:39 +0100 |
| commit | 931ca24a70995c78958140b1d53dfd52e0e9bc4d (patch) | |
| tree | dce6df944e07cb427043c851d9addf4a545cf1fb /tests/testthat/setup_script.R | |
| parent | 9110b14f3cb40dbacbf78b8f7b3d9d212de6985b (diff) | |
Add test for summary.nlmixr.mmkin
Diffstat (limited to 'tests/testthat/setup_script.R')
| -rw-r--r-- | tests/testthat/setup_script.R | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/testthat/setup_script.R b/tests/testthat/setup_script.R index 4688b7d7..08d899a1 100644 --- a/tests/testthat/setup_script.R +++ b/tests/testthat/setup_script.R @@ -201,6 +201,13 @@ 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) +# nlmixr saem +tmp <- capture_output(nlmixr_saem_biphasic <- nlmixr(mmkin_biphasic, est = "saem", + control = nlmixr::saemControl(nBurn = 300, nEm = 100, nmc = 9, print = 0))) +# The FOCEI fit takes too long... +#tmp <- capture_output(nlmixr_focei_biphasic <- nlmixr(mmkin_biphasic, est = "focei", +# control = nlmixr::foceiControl(print = 0))) + # UBA datasets ds_uba <- lapply(experimental_data_for_UBA_2019[6:10], function(x) subset(x$data[c("name", "time", "value")])) |