From 9fb9b76eb93e0e7919c133df57e720a8a66fc347 Mon Sep 17 00:00:00 2001 From: Karl Broman Date: Fri, 15 Mar 2024 14:34:16 -0500 Subject: [PATCH] lower tolerance on a test as failing on mac and windows --- tests/testthat/test-scan1_pg.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-scan1_pg.R b/tests/testthat/test-scan1_pg.R index fb03869d..0df7e980 100644 --- a/tests/testthat/test-scan1_pg.R +++ b/tests/testthat/test-scan1_pg.R @@ -404,7 +404,7 @@ test_that("scan1 with kinship works with LOCO, additive covariates", { out_reml <- unclass(out_reml) out_ml <- unclass(out_ml) dimnames(out_reml) <- dimnames(out_ml) <- NULL - expect_equal(out_reml[index,1], lod_reml1) + expect_equal(out_reml[index,1], lod_reml1, tolerance=1e-6) expect_equal(out_reml[index,2], lod_reml2, tolerance=1e-5) expect_equal(out_ml[index,1], lod_ml1) expect_equal(out_ml[index,2], lod_ml2)