diff options
Diffstat (limited to 'tests/testthat/test_mixed.R')
| -rw-r--r-- | tests/testthat/test_mixed.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index 6fb06656..e005c982 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -1,5 +1,11 @@ context("Nonlinear mixed-effects models") +# Round error model parameters as they are not rounded in print methods +dfop_nlme_1$modelStruct$varStruct$const <- + signif(dfop_nlme_1$modelStruct$varStruct$const, 3) +dfop_nlme_1$modelStruct$varStruct$prop <- + signif(dfop_nlme_1$modelStruct$varStruct$prop, 4) + test_that("Print methods work", { expect_known_output(print(fits[, 2:3], digits = 2), "print_mmkin_parent.txt") expect_known_output(print(mixed(mmkin_sfo_1), digits = 2), "print_mmkin_sfo_1_mixed.txt") |