From fd4bd411df739903279d8b52faa19d5059afbda7 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 1 Nov 2022 09:46:33 +0100 Subject: Improved printing for illparms() For the case of single fits and no ill-defined parameters found --- tests/testthat/test_mhmkin.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/testthat/test_mhmkin.R') 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() -- cgit v1.2.1