one test error on M1mac according to CRAN - due to floating point dif…

…ferences it seems. But difficult check good threshold as M1Mac not available for me to test on
kasselhingee · May 22, 2024 · af2b10a · af2b10a
1 parent 251952c
commit af2b10a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-Bingham.R b/tests/testthat/test-Bingham.R
@@ -141,9 +141,9 @@ test_that("Bingham methods match for simulated weights, ignoring SE, which shoul
 
   sim1 <- Bingham(vw$newY, method = "Mardia")
   dir1 <-  Bingham(Y, method = "Mardia", w = vw$w)
-  expect_equal(sim1$est, dir1$est)
+  expect_equal(sim1$est, dir1$est, tolerance = 10 * sqrt(.Machine$double.eps))
 
   sim2 <- Bingham(vw$newY, method = "smfull")
   dir2 <-  Bingham(Y, method = "smfull", w = vw$w)
-  expect_equal(sim2$est, dir2$est)
+  expect_equal(sim2$est, dir2$est, tolerance = 10 * sqrt(.Machine$double.eps))
 })