diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-08-10 14:21:26 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-08-10 14:28:37 +0200 |
| commit | 2890a954d8443e1aab04a5c5fa128574fa6cde87 (patch) | |
| tree | 322a214fd870acd28732bc268f23e8bd8d11a79f /tests/testthat/test_mhmkin.R | |
| parent | 4572a31a440c967dfc66222c0214fccd087ac338 (diff) | |
Naming of random effects for reduced parameter models
Diffstat (limited to 'tests/testthat/test_mhmkin.R')
| -rw-r--r-- | tests/testthat/test_mhmkin.R | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/testthat/test_mhmkin.R b/tests/testthat/test_mhmkin.R index e059948a..eced5583 100644 --- a/tests/testthat/test_mhmkin.R +++ b/tests/testthat/test_mhmkin.R @@ -29,4 +29,15 @@ test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", { hfit_sfo_tc <- update(hfits[["SFO", "tc"]], covariance.model = diag(c(0, 1))) expect_equal(illparms(hfit_sfo_tc), character(0)) + + test_summary <- summary(hfit_sfo_tc) + 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_hfit_sfo_tc.txt") }) |