inst/tinytest/test_cit.R

In cit: Causal Inference Test

# Loading the test data
load("testpb.Rdata")

# Multiple runs give the same results
set.seed(1231)
ans1 <- cit.bp(L, G, T1, C)
ans2 <- cit.bp(L, G, T1, C)
ans3 <- cit.bp(L, G, T1, C)
ans4 <- cit.bp(L, G, T1, C)

expect_equal(ans1[2:4], ans2[2:4])
expect_equal(ans1[2:4], ans3[2:4])
expect_equal(ans1[2:4], ans4[2:4])

# The stochastic pvals should be roughly the same
expect_true(all(abs(ans1[c(1,5)] - ans2[c(1,5)]) < .04))
expect_true(all(abs(ans1[c(1,5)] - ans3[c(1,5)]) < .04))
expect_true(all(abs(ans1[c(1,5)] - ans4[c(1,5)]) < .04))