strategy <- strategy_maic(formula = as.formula(y~trt:X1), family = binomial())
ipd <- data.frame(trt = sample(c("A", "C"), size = 100, replace = TRUE),
X1 = rnorm(100, 1, 1),
y = sample(c(1,0), size = 100, prob = c(0.7,0.3), replace = TRUE))
ald <- data.frame(trt = c(NA, "B", "C", "B", "C"),
variable = c("X1", "y", "y", NA, NA),
statistic = c("mean", "sum", "sum", "N", "N"),
value = c(0.5, 10, 12, 20, 25))
calc_IPD_stats(strategy,
analysis_params = list(ipd = ipd, ald = ald, scale = "log_odds"))
Run the code above in your browser using DataLab