# NOT RUN {
vietnam <- data.frame(
service = c(rep("yes", 2), rep("no", 2), rep("maybe", 2)),
sleep = rep(c("yes", "no"), 3),
count = c(173, 160, 599, 851, 400, 212)
)
xtabs(count ~ service + sleep, data = vietnam) %>% prop_test()
# }
Run the code above in your browser using DataLab