tests/testthat/test-door_ci.R

In door: Analysis of Clinical Trials with the Desirability of Outcome Ranking Methodology

# summary data
y1t = c(60,30,10)
y2t = c(50,40,10)
p1t = y1t / 100
p2t = y2t / 100
n1 = 100
n2 = 100
# individual data
trt_data = data.frame(DOOR = c(rep(1,60), rep(2,30), rep(3, 10)), ARM = rep(1, 100))
ctr_data = data.frame(DOOR = c(rep(1,50), rep(2,40), rep(3, 10)), ARM = rep(0, 100))
test_data1 <- rbind.data.frame(trt_data, ctr_data)
obj1 = door_summary(data = test_data1, doorVar = "DOOR", trtVar = "ARM", trtCodes = c(1,0))

test_that("Calculate CI with frequency data", {
  testthat::expect_type(door_ci(y1t, y2t), "list")
  testthat::expect_type(door_ci(y1 = c(1,0,0,1,0),  y2 = c(1,1,0,0,0)), "list")
  testthat::expect_type(door_ci(y1 = c(1,1,0,0,0),  y2 = c(0,0,1,1,1)), "list")
  testthat::expect_type(door_ci(y1 = c(1,0,0,1,0),  y2 = c(1,0,0,1,0)), "list")
})

test_that("Calculate CI with proportion data", {
  testthat::expect_type(door_ci(p1t, p2t, n1 = 100, n2 = 100, data_type = "prop"), "list")
})

test_that("Calculate CI with individual data", {
  testthat::expect_type(door_ci(summary_obj = obj1), "list")
})