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")
analysis.prop <- analyze.simstudy.prop(test.statistics.prop =
test.statistics.prop, alternative = "two.sided", conf.level = 0.99,
the.quantiles = c(0.005, 0.995))
Run the code above in your browser using DataLab