diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-31 02:20:56 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-31 02:20:56 +0100 |
| commit | 59750fd0438ccaa5c6612990660181210f8594f2 (patch) | |
| tree | e47184b37d97bb481683a4c26ff99145dd169bf1 /tests/testthat/test_tests.R | |
| parent | 7091d3738e7e55acb20edb88772b228f6f5b6c98 (diff) | |
Increase numeric tolerance of three tests for Travis
Diffstat (limited to 'tests/testthat/test_tests.R')
| -rw-r--r-- | tests/testthat/test_tests.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_tests.R b/tests/testthat/test_tests.R index 523edc4a..d8b97815 100644 --- a/tests/testthat/test_tests.R +++ b/tests/testthat/test_tests.R @@ -5,7 +5,7 @@ test_that("The likelihood ratio test works", { expect_error(lrtest(fit_tc_1, f_tc_2), "not been fitted to the same data") res <- lrtest(fit_nw_1, fit_tc_1) - expect_equal(res[["2", "Pr(>Chisq)"]], 0.9999998) + expect_equal(res[["2", "Pr(>Chisq)"]], 1, tolerance = 1e-5) }) @@ -23,5 +23,5 @@ test_that("Updating fitted models works", { test_nw_tc <- lrtest(f_soil_1_nw, f_soil_1_tc) expect_equivalent(test_nw_tc[["2", "Pr(>Chisq)"]], 2.113e-6) test_nw_A2 <- lrtest(f_soil_1_nw, f_soil_1_nw_A2) - expect_equivalent(test_nw_A2[["2", "Pr(>Chisq)"]], 0.9999468) + expect_equivalent(test_nw_A2[["2", "Pr(>Chisq)"]], 1, tolerance = 1e-4) }) |