```{r}scholarship_table <- table(A4Q2\(status, A4Q2\)scholarship) scholarship_table barplot(scholarship_table) beside = TRUE col = rainbow(nrow(scholarship_table)) legend = rownames(scholarship_table) chi_result <- chisq.test(scholarship_table) chi_result rcompanion::cramerV(scholarship_table)

A Chi-Square Test of Independence was conducted to determine if there was an association between Variable 1 and Variable 2.

The results showed that there was not an association between the two variables, χ²(1) = 81.30, p < .001.

The association was large, (Cramer’s V = .53).```