diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 13:54:51 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 13:54:51 +0100 |
| commit | a4ee9274df1de50afae8b1a84eb23fe806c1ace9 (patch) | |
| tree | 042528934aa102c186bbef55d28d486d8b211366 /tests/testthat/test_mixed.R | |
| parent | 3b15daaf373ebc36da2eb92f2e37ed569731f07d (diff) | |
Update test output and reduce precision for travis
Diffstat (limited to 'tests/testthat/test_mixed.R')
| -rw-r--r-- | tests/testthat/test_mixed.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index b9713c6e..ef73f21d 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -46,7 +46,7 @@ test_that("Parent only models can be fitted using nonlinear mixed effects models test_that("Print methods work", { expect_known_output(print(mmkin_biphasic_mixed, digits = 2), "print_mmkin_biphasic_mixed.txt") - expect_known_output(print(nlme_biphasic, digits = 2), "print_nlme_biphasic.txt") + expect_known_output(print(nlme_biphasic, digits = 1), "print_nlme_biphasic.txt") expect_known_output(print(sfo_saemix_1, digits = 1), "print_sfo_saemix_1.txt") }) @@ -60,7 +60,7 @@ test_that("nlme results are reproducible", { test_summary$date.summary <- "Dummy date for testing" test_summary$time <- c(elapsed = "test time 0") - expect_known_output(print(test_summary, digits = 2), "summary_nlme_biphasic_s.txt") + expect_known_output(print(test_summary, digits = 1), "summary_nlme_biphasic_s.txt") dfop_sfo_pop <- as.numeric(dfop_sfo_pop) ci_dfop_sfo_n <- summary(nlme_biphasic)$confint_back |