aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_mixed.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-02-28 20:46:39 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-02-28 20:46:39 +0100
commit931ca24a70995c78958140b1d53dfd52e0e9bc4d (patch)
treedce6df944e07cb427043c851d9addf4a545cf1fb /tests/testthat/test_mixed.R
parent9110b14f3cb40dbacbf78b8f7b3d9d212de6985b (diff)
Add test for summary.nlmixr.mmkin
Diffstat (limited to 'tests/testthat/test_mixed.R')
-rw-r--r--tests/testthat/test_mixed.R14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R
index 130d4596..2e241931 100644
--- a/tests/testthat/test_mixed.R
+++ b/tests/testthat/test_mixed.R
@@ -72,3 +72,17 @@ test_that("saemix results are reproducible for biphasic fits", {
expect_true(all(ci_dfop_sfo_s_d[no_k2, "lower"] < dfop_sfo_pop[no_k2]))
expect_true(all(ci_dfop_sfo_s_d[no_k1, "upper"] > dfop_sfo_pop[no_k1]))
})
+
+test_that("nlmixr results are reproducible for biphasic fits", {
+
+ test_summary <- summary(nlmixr_saem_biphasic)
+ test_summary$saemixversion <- "Dummy 0.0 for testing"
+ test_summary$mkinversion <- "Dummy 0.0 for testing"
+ test_summary$Rversion <- "Dummy R version for testing"
+ test_summary$date.fit <- "Dummy date for testing"
+ test_summary$date.summary <- "Dummy date for testing"
+ test_summary$time <- c(elapsed = "test time 0")
+
+ expect_known_output(print(test_summary, digits = 1), "summary_nlmixr_saem_biphasic.txt")
+})
+

Contact - Imprint