aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-11-01 09:46:33 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-11-01 09:46:33 +0100
commitfd4bd411df739903279d8b52faa19d5059afbda7 (patch)
treeca1ea04a1d6e54949e5d69147d5ac253efaf95d7 /tests/testthat
parent300aa6ec27529f46deda07874566dc8fcee4e6e7 (diff)
Improved printing for illparms()
For the case of single fits and no ill-defined parameters found
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_mhmkin.R3
-rw-r--r--tests/testthat/test_saemix_parent.R1
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))

Contact - Imprint