The Centre for Independent Studies published a paper titled "Attitudes to a post- COVID Australia" which amaliysed the responses to a series of phane polls (one in each state) conducted by YouGov on individuals over the age of 18 . A pre-specifed number of individuaks were sampled from each state. Participants were asked whether they thought their state government should have the right to refuse to allow unvaccinated people to enter their state. The results are provided in the table below broken down by state for each of the larger states (participants from smaller states and territories have been excluded). yougov x janitor:tabyl(Opinion, State) x % janitor::adorn_totols(where = c("row", col")) 9ss knitr:\{kable yougor 0%% ggplot )+aes(x= State, fill = Opinton )+ georlbar(position = "fil1") + scale_color_brewer(palette - "Set1")+ lobs (y=-Proportion") + themedinedran() table(yougov) 8 : chisq.test(simutate. p, value = ThUE) agh H" Pearson's Chi-squared test mith simulated p-value HA (bosedion 2000 replicates) deta: se X-squared =16.812, if =NA,p-value =9.02899 At the 5% level of significance, with reference to the R output, above do you reject or not reject the nuli hypothexis identified earlier? Why? Write your conclusion in the context of the question. The Centre for Independent Studies published a paper titled "Attitudes to a post- COVID Australia" which amaliysed the responses to a series of phane polls (one in each state) conducted by YouGov on individuals over the age of 18 . A pre-specifed number of individuaks were sampled from each state. Participants were asked whether they thought their state government should have the right to refuse to allow unvaccinated people to enter their state. The results are provided in the table below broken down by state for each of the larger states (participants from smaller states and territories have been excluded). yougov x janitor:tabyl(Opinion, State) x % janitor::adorn_totols(where = c("row", col")) 9ss knitr:\{kable yougor 0%% ggplot )+aes(x= State, fill = Opinton )+ georlbar(position = "fil1") + scale_color_brewer(palette - "Set1")+ lobs (y=-Proportion") + themedinedran() table(yougov) 8 : chisq.test(simutate. p, value = ThUE) agh H" Pearson's Chi-squared test mith simulated p-value HA (bosedion 2000 replicates) deta: se X-squared =16.812, if =NA,p-value =9.02899 At the 5% level of significance, with reference to the R output, above do you reject or not reject the nuli hypothexis identified earlier? Why? Write your conclusion in the context of the
