simdat.prop2 <- sim.prop2(nx = 30, ny = 40, px = 0.5,
py = 0.55, num.experiments = 2, experiment.name = "sim",
group.name = "treatment", x.value = "group_1", y.value = "group_2",
value.name = "correct_answer", seed = 3)
test.statistics.prop2 <- sim.prop2.test(simdat.prop2 = simdat.prop2,
p = NULL, alternative = "less", conf.level = 0.95, correct = TRUE,
experiment.name = "sim", group.name = "treatment", x.value = "group_1",
y.value = "group_2", value.name = "correct_answer")
analysis.prop2 <- analyze.simstudy.prop2(test.statistics.prop2 =
test.statistics.prop2, alternative = "less", conf.level = 0.95,
the.quantiles = c(0.025, 0.1, 0.9, 0.975))
Run the code above in your browser using DataLab