# Conduct the stratified MN analysis with sample size weights
treatment <- c(rep("pbo", 100), rep("exp", 100))
response <- c(rep(0, 80), rep(1, 20), rep(0, 40), rep(1, 60))
stratum <- c(rep(1:4, 12), 1, 3, 3, 1, rep(1:4, 12), rep(1:4, 25))
rate_compare(
response ~ factor(treatment, levels = c("pbo", "exp")),
strata = stratum,
delta = 0,
weight = "ss",
test = "one.sided",
alpha = 0.05
)
Run the code above in your browser using DataLab