diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-05-15 11:45:12 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-05-15 11:45:12 +0200 |
| commit | ded6e62ad7d1a4aa565a06f33964db0af8c7d78b (patch) | |
| tree | c89f0bc05d51420c138f9549696239ee3ccffdfc | |
| parent | fcc28ed8bafd5c3b989033e8f1afefaae0c3fe41 (diff) | |
Relax test tolerance for SFORB, FOCUS B and deSolve
While this was OK on my local windows machine, the test failed on
winbuilder
| -rw-r--r-- | tests/testthat/test_parent_only.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_parent_only.R b/tests/testthat/test_parent_only.R index c919cb9c..5dcf297c 100644 --- a/tests/testthat/test_parent_only.R +++ b/tests/testthat/test_parent_only.R @@ -199,7 +199,7 @@ test_that("DFOP fits give approximately (0.001%) equal results with different so expect_equivalent(dev.percent[[2]] < 0.001, rep(TRUE, 4)) }) -test_that("SFORB fits give approximately (0.001%) equal results with different solution methods", { +test_that("SFORB fits give approximately (0.002%) equal results with different solution methods", { fit.B.SFORB.default <- mkinfit(SFORB, FOCUS_2006_B, quiet=TRUE)$bparms.optim fits.B.SFORB <- list() @@ -207,5 +207,5 @@ test_that("SFORB fits give approximately (0.001%) equal results with different s fits.B.SFORB[[2]] <- mkinfit(SFORB, FOCUS_2006_B, quiet=TRUE, solution_type = "deSolve") dev.percent <- calc_dev.percent(fits.B.SFORB, fit.B.SFORB.default, endpoints = FALSE) expect_equivalent(dev.percent[[1]] < 0.001, rep(TRUE, 4)) - expect_equivalent(dev.percent[[2]] < 0.001, rep(TRUE, 4)) + expect_equivalent(dev.percent[[2]] < 0.002, rep(TRUE, 4)) }) |