# NOT RUN {
prop_test(7, 50, method = "wald", p = 0.2)
prop_test(7, 50, method = "wald", p = 0.2, exact = TRUE)
prop_test(c(23, 24), c(50, 55))
vietnam <- data.frame(
service = c(rep("yes", 2), rep("no", 2)),
sleep = c(rep(c("yes", "no"), 2)),
count = c(173, 160, 599, 851)
)
sleep <- xtabs(count ~ service + sleep, data = vietnam)
prop_test(sleep)
prop_test(vietnam, service, sleep, count)
# }
Run the code above in your browser using DataLab