---

editor_options: markdown: wrap: 72 —

’’‘{r} library(readxl) library(rcompanion) library(ggplot2) A4Q2 <- read_excel(“//apporto.com/dfs/SLU/Users/brentgallagher_slu/Desktop/A4Q2.xlsx”) table(A4Q2\(status, A4Q2\)scholarship) students <- table(A4Q2\(status, A4Q2\)scholarship) observed barplot(students, beside = TRUE, col = rainbow(nrow(students)), legend = rownames(students)) chi_result<- chisq.test(students) chi_result rcompanion::cramerV(students) # A Chi-Square Test of Independence was conducted to determine if there was an association between scholarships and nationality. # The results showed that there was an association between the two variables, x2 = 81.29, p = 2.2. # The association was large (Cramer’s V = .52).’’’