lower tolerance on a test as failing on mac and windows

kbroman · Mar 15, 2024 · 9fb9b76 · 9fb9b76
1 parent b39f922
commit 9fb9b76
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)