# NOT RUN {
one_sim <- function(n, control_prob, rel_effect) {
treat_prob <- control_prob + (control_prob * rel_effect)
cy <- rbinom(n = n, size = 1, prob = control_prob)
ty <- rbinom(n = n, size = 1, prob = treat_prob)
mean(ty) - mean(cy)
}
mc_replicate(10, one_sim(n = 100, control_prob = 0.1, rel_effect = 0.01))
# }
Run the code above in your browser using DataLab