From ded6e62ad7d1a4aa565a06f33964db0af8c7d78b Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 15 May 2015 11:45:12 +0200 Subject: Relax test tolerance for SFORB, FOCUS B and deSolve While this was OK on my local windows machine, the test failed on winbuilder --- tests/testthat/test_parent_only.R | 4 ++-- 1 file 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)) }) -- cgit v1.2.1