The following problems are copied from the chapter 17 exercises from Introduction to Modern Statistics First Edition by Mine Çetinkaya-Rundel and Johanna Hardin (https://openintro-ims.netlify.app/inference-one-prop.html)
The following problem is a modified version of the problem that appears in your book.
With no currently licensed vaccines to inhibit malaria, good news was welcomed with a recent study reporting long-awaited vaccine success for children in Burkina Faso. With 450 children randomized to either one of two different doses of the malaria vaccine or a control vaccine, 89 of 292 malaria vaccine and 106 out of 147 control vaccine children contracted malaria within 12 months after the treatment. (Datoo et al. 2021)
ANSWER: Experiment, as the children were assigned a treatment or control group by random assignment.
I created a data set called malaria_data for you to use
when answering the following questions.
## outcome
## treatment infected not infected Sum
## control vaccine 106 41 147
## malaria vaccine 89 203 292
## Sum 195 244 439
ANSWER: \(p_m\) is the proportion of patients that were infected when given the malaria vaccine \(p_c\) is the proportion of patients that were infected when given the control vaccine
malaria_data %>%
select(treatment, outcome) %>%
table(dnn=c("malaria vaccine", "control vaccine")) %>%
prop.table (1) %>%
addmargins()
## control vaccine
## malaria vaccine infected not infected Sum
## control vaccine 0.7210884 0.2789116 1.0000000
## malaria vaccine 0.3047945 0.6952055 1.0000000
## Sum 1.0258830 0.9741170 2.0000000
ANSWER: \(\hat p_m =\) .304
\(\hat p_c =\) .721
ANSWER: \(H_0p_m = p_c\) The proportion of patients that got infected that received the malaria vaccine and control vaccine are not significantly different
\(H_a p_m< p_c\) The proportion of patients that got infected that received the malaria vaccine was significantly less than the proportion that received the control vaccine.
ANSWER:
ANSWER: