diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-11-01 09:46:33 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-11-01 09:46:33 +0100 |
| commit | fd4bd411df739903279d8b52faa19d5059afbda7 (patch) | |
| tree | ca1ea04a1d6e54949e5d69147d5ac253efaf95d7 /tests | |
| parent | 300aa6ec27529f46deda07874566dc8fcee4e6e7 (diff) | |
Improved printing for illparms()
For the case of single fits and no ill-defined parameters found
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/test_mhmkin.R | 3 | ||||
| -rw-r--r-- | tests/testthat/test_saemix_parent.R | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/testthat/test_mhmkin.R b/tests/testthat/test_mhmkin.R index fc588473..72b81fec 100644 --- a/tests/testthat/test_mhmkin.R +++ b/tests/testthat/test_mhmkin.R @@ -25,6 +25,7 @@ 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)) + expect_silent(print(illparms(hfit_sfo_tc))) test_summary <- summary(hfit_sfo_tc) test_summary$saemixversion <- "Dummy 0.0 for testing" @@ -37,7 +38,7 @@ test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", { expect_known_output(print(test_summary, digits = 1), "summary_hfit_sfo_tc.txt") - # It depends on the platform exactly which of the + # It depends on the platform exactly which of the # SFO datasets fail to converge with FOMC skip_on_travis() diff --git a/tests/testthat/test_saemix_parent.R b/tests/testthat/test_saemix_parent.R index 39efa18f..e7574b01 100644 --- a/tests/testthat/test_saemix_parent.R +++ b/tests/testthat/test_saemix_parent.R @@ -12,6 +12,7 @@ test_that("Parent fits using saemix are correctly implemented", { expect_equal(illparms(sfo_saem_1), "sd(parent_0)") # So we have also done a fit without this variance expect_equal(illparms(sfo_saem_1_reduced), character(0)) + expect_silent(print(illparms(sfo_saem_1_reduced))) # We cannot currently do the fit with completely fixed initial values mmkin_sfo_2 <- update(mmkin_sfo_1, fixed_initials = c(parent = 100)) |