diff options
Diffstat (limited to 'tests/testthat/test_mhmkin.R')
| -rw-r--r-- | tests/testthat/test_mhmkin.R | 11 |
1 files changed, 6 insertions, 5 deletions
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))) |