Attempt at automatic setting of random effects

Based on parameters in the separate fits that fail the t-test.

1 files changed, 12 insertions, 2 deletions

diff --git a/tests/testthat/test_mhmkin.R b/tests/testthat/test_mhmkin.R
index 9fd29c50..93333ac1 100644
--- a/tests/testthat/test_mhmkin.R
+++ b/tests/testthat/test_mhmkin.R
@@ -38,12 +38,22 @@ 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
-  # SFO datasets fail to converge with FOMC
+  # It depends on the platform exactly which of the datasets fail to converge
+  # with FOMC, because they were generated to be SFO
   skip_on_travis()
 
   expect_known_output(
     print(fits_synth_const),
     "print_fits_synth_const.txt")
 
+  hfits_no_ranef_auto <- update(hfits, no_random_effect = "auto", auto_ranef_threshold = 2)
+
+  expect_known_output(
+    print(hfits_no_ranef_auto),
+    "print_hfits_synth_no_ranef_auto.txt")
+
+  expect_known_output(
+    print(illparms(hfits_no_ranef_auto)),
+    "illparms_hfits_synth_no_ranef_auto.txt")
+
 })