From 1398f439b4447423cb63c879ce638ee7d88ee905 Mon Sep 17 00:00:00 2001 From: Peter Carbonetto Date: Thu, 1 Mar 2018 14:34:52 -0600 Subject: [PATCH] More adjustments to tolerance of testthat tests. --- tests/testthat/test_ash.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_ash.R b/tests/testthat/test_ash.R index e5c3a8f..4a6824b 100644 --- a/tests/testthat/test_ash.R +++ b/tests/testthat/test_ash.R @@ -71,7 +71,7 @@ test_that("get same result as ash under transformation, EE model", { expect_equal(as.numeric(ashr::get_pm(res)),ashr::get_pm(ashres),tolerance = 1e-5) expect_equal(as.numeric(ashr::get_psd(res)),ashr::get_psd(ashres),tolerance = 1e-5) expect_equal(as.numeric(ashr::get_np(res)),ashr::get_np(ashres),tolerance = 1e-5) - expect_equal(as.numeric(ashr::get_lfdr(res)),ashr::get_lfdr(ashres),tolerance = 1e-5) + expect_equal(as.numeric(ashr::get_lfdr(res)),ashr::get_lfdr(ashres),tolerance = 5e-5) }) test_that("get same result as ash under transformation, EZ model", { @@ -98,5 +98,5 @@ test_that("get same result as ash under transformation, EZ model", { expect_equal(as.numeric(ashr::get_pm(res)),ashr::get_pm(ashres),tolerance = 1e-5) expect_equal(as.numeric(ashr::get_psd(res)),ashr::get_psd(ashres),tolerance = 1e-5) expect_equal(as.numeric(ashr::get_np(res)),ashr::get_np(ashres),tolerance = 1e-5) - expect_equal(as.numeric(ashr::get_lfdr(res)),ashr::get_lfdr(ashres),tolerance = 1e-5) + expect_equal(as.numeric(ashr::get_lfdr(res)),ashr::get_lfdr(ashres),tolerance = 5e-5) })