fix test

lbau7 · Aug 9, 2023 · 2fbc146 · 2fbc146
1 parent 1ba7b80
commit 2fbc146
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-findn.R b/tests/testthat/test-findn.R
@@ -14,7 +14,7 @@ test_that("findn finds approximately the correct sample size", {
   n_true2 <- ceiling(power.t.test(delta = 5, sd = 10, type = "one.sample", 
     power = 0.9)$n)
 
-  expect_equal(length(res_bll1$all_evals) * 24, 2000)
+  expect_equal(length(res_bll1$all_evals) * 25, 2000)
   expect_equal(res_bll1$sample_size, n_true1, tol = 2)
   expect_equal(res_bll2$sample_size, n_true2, tol = 2)
 })