diff options
Diffstat (limited to 'tests/testthat/test_FOCUS_chi2_error_level.R')
| -rw-r--r-- | tests/testthat/test_FOCUS_chi2_error_level.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/testthat/test_FOCUS_chi2_error_level.R b/tests/testthat/test_FOCUS_chi2_error_level.R index 1f1e2a06..69a8c2ad 100644 --- a/tests/testthat/test_FOCUS_chi2_error_level.R +++ b/tests/testthat/test_FOCUS_chi2_error_level.R @@ -26,7 +26,8 @@ SFO_SFO.ff <- mkinmod(parent = list(type = "SFO", to = "m1"), test_that("Chi2 error levels for FOCUS D are as in mkin 0.9-33", { - fit <- mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE) + fit <- expect_warning(mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE), + "Observations with value of zero") errmin.FOCUS_2006_D_rounded = data.frame( err.min = c(0.0640, 0.0646, 0.0469), |