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))
calculate_trial_variance(
ald, tid = "B", effect = "log_odds", family = "binomial")
Run the code above in your browser using DataLab