diff --git a/tests/testthat/test_samplers.R b/tests/testthat/test_samplers.R index 040a3891..6ac75ece 100644 --- a/tests/testthat/test_samplers.R +++ b/tests/testthat/test_samplers.R @@ -1,5 +1,9 @@ -test_that("test sampling", { - +test_that('test sampling',{ + + set.seed(123123) + dqrng::dqRNGkind("Xoroshiro128+") + dqrng::dqset.seed(123123) + data1 <<- fwildclusterboot:::create_data( N = 10000, N_G1 = 20, @@ -32,6 +36,8 @@ test_that("test sampling", { ) expect_equal(pval(boot1), pval(boot2), tolerance = 0.05) - expect_equal(teststat(boot1), teststat(boot2)) - expect_equal(confint(boot1), confint(boot2), tolerance = 0.005) + expect_equal(teststat(boot1), teststat(boot2), tolerance = 0.005) + expect_equal(confint(boot1), confint(boot2), tolerance = 0.075) + }) +