strategy <- list(family = list(family = "binomial")) # basic version
ald <- data.frame(trt = c("B","C","B","C"),
variable = c(NA, NA, "y", "y"),
statistic = c("N", "N", "sum", "sum"),
value = c(100, 100, 50, 60))
calc_ALD_stats(strategy = strategy,
list(ald = ald,
ref_trt = "C",
ald_comp = "B",
scale = "log_odds"))
Run the code above in your browser using DataLab