simdat.prop <- sim.prop(n = 30, p = 0.45, num.experiments = 2,
experiment.name = "simulation_id", value.name = "success", seed = 104)
test.statistics.prop <- sim.prop.test(simdat.prop = simdat.prop, p = 0.5,
alternative = "two.sided", conf.level = 0.99, correct = TRUE,
experiment.name = "simulation_id", value.name = "success")
Run the code above in your browser using DataLab