add test

konfound-project · Dec 5, 2024 · 1eb1cd0 · 1eb1cd0
1 parent faea416
commit 1eb1cd0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-pkonfound.R b/tests/testthat/test-pkonfound.R
@@ -223,3 +223,7 @@ test_that("pkonfound printed output works for a negative case", {
     output <- capture.output(pkonfound(-.01, .65, 200, 3, to_return = "print", index = "IT"))
     expect_true(length(output) > 0)
 })
+
+test_that("pkonfound works for a CI", {
+    expect_equal(pkonfound(upper_bound = 2, lower_bound = 1, n_obs = 200, n_covariates = 3, to_return = "raw_output")$RIR_perc, 66.664, tolerance = .001)
+})