From fe66a82e0519b0649dca20dbf7633c0d24e65e70 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 29 Oct 2022 11:36:50 +0200 Subject: Make test independent of saemix error model parameter patch As mentioned in d44c17da6d62568b --- tests/testthat/print_sfo_saem_1.txt | 19 ------------------- tests/testthat/print_sfo_saem_1_reduced.txt | 18 ++++++++++++++++++ tests/testthat/test_mixed.R | 2 +- 3 files changed, 19 insertions(+), 20 deletions(-) delete mode 100644 tests/testthat/print_sfo_saem_1.txt create mode 100644 tests/testthat/print_sfo_saem_1_reduced.txt (limited to 'tests') diff --git a/tests/testthat/print_sfo_saem_1.txt b/tests/testthat/print_sfo_saem_1.txt deleted file mode 100644 index 34eea058..00000000 --- a/tests/testthat/print_sfo_saem_1.txt +++ /dev/null @@ -1,19 +0,0 @@ -Kinetic nonlinear mixed-effects model fit by SAEM -Structural model: -d_parent/dt = - k_parent * parent - -Data: -262 observations of 1 variable(s) grouped in 15 datasets - -Likelihood computed by importance sampling - AIC BIC logLik - 1312 1316 -650 - -Fitted parameters: - estimate lower upper -parent_0 1e+02 99.28 1e+02 -k_parent 4e-02 0.03 4e-02 -a.1 9e-01 0.75 1e+00 -b.1 5e-02 0.04 5e-02 -SD.parent_0 2e-01 -6.33 7e+00 -SD.k_parent 3e-01 0.20 4e-01 diff --git a/tests/testthat/print_sfo_saem_1_reduced.txt b/tests/testthat/print_sfo_saem_1_reduced.txt new file mode 100644 index 00000000..bac8848e --- /dev/null +++ b/tests/testthat/print_sfo_saem_1_reduced.txt @@ -0,0 +1,18 @@ +Kinetic nonlinear mixed-effects model fit by SAEM +Structural model: +d_parent/dt = - k_parent * parent + +Data: +262 observations of 1 variable(s) grouped in 15 datasets + +Likelihood computed by importance sampling + AIC BIC logLik + 1310 1313 -650 + +Fitted parameters: + estimate lower upper +parent_0 1e+02 99.08 1e+02 +k_parent 4e-02 0.03 4e-02 +a.1 9e-01 0.75 1e+00 +b.1 5e-02 0.04 5e-02 +SD.k_parent 3e-01 0.20 4e-01 diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index e005c982..8e4d668b 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -11,7 +11,7 @@ test_that("Print methods work", { expect_known_output(print(mixed(mmkin_sfo_1), digits = 2), "print_mmkin_sfo_1_mixed.txt") expect_known_output(print(dfop_nlme_1, digits = 1), "print_dfop_nlme_1.txt") - expect_known_output(print(sfo_saem_1, digits = 1), "print_sfo_saem_1.txt") + expect_known_output(print(sfo_saem_1_reduced, digits = 1), "print_sfo_saem_1_reduced.txt") }) test_that("nlme results are reproducible to some degree", { -- cgit v1.2.1