# NOT RUN {
one_sim <- function(n = 100, control_prob = 0.1, rel_effect = 0.01) {
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(), mc.cores = 2)
# On Windows, when no particular packages or additional variables are needed
# mc_replicate(10, one_sim(), , mc.cores = 2, packages = NULL,
# varlist = "one_sim", envir = environment())
# }
Run the code above in your browser using DataLab