From 4572a31a440c967dfc66222c0214fccd087ac338 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 10 Aug 2022 13:36:00 +0200 Subject: Increase test coverage, require saemix version 3.1 --- tests/testthat/test_mhmkin.R | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'tests/testthat/test_mhmkin.R') diff --git a/tests/testthat/test_mhmkin.R b/tests/testthat/test_mhmkin.R index 5243f971..e059948a 100644 --- a/tests/testthat/test_mhmkin.R +++ b/tests/testthat/test_mhmkin.R @@ -10,20 +10,21 @@ test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", { update(fits_synth_const, error_model = "tc")) expect_known_output( - convergence(fits_synth_const), - "convergence_fits_synth_const.txt") + print(fits_synth_const), + "print_fits_synth_const.txt") hfits <- mhmkin(list(fits_synth_const, fits_synth_tc)) expect_known_output( - convergence(hfits), - "convergence_hfits_synth.txt") + print(hfits), + "print_hfits_synth.txt") expect_known_output( - illparms(hfits), + print(illparms(hfits)), "illparms_hfits_synth.txt") expect_equal(which.min(AIC(hfits)), 3) + expect_equal(which.min(BIC(hfits)), 3) hfit_sfo_tc <- update(hfits[["SFO", "tc"]], covariance.model = diag(c(0, 1))) -- cgit v1.2.1