A5A2

install.packages(“rcompanion”) library(readxl) library(ggplot2) library(rcompanion) A5Q2 <- read_excel(“Desktop/AA-5221-22 Applied Analytics & Methods I/A5Q2.xlsx”) View(A5Q2) MyTable <- table(A5Q2\(student_id, A5Q2\)nationality, A5Q2$scholarship_awarded) MyTable barplot(as.matrix(MyTable), beside = TRUE, col = rainbow(nrow(MyTable)), legend = rownames(MyTable)) chisq.test(MyTable) rcompanion::cramerV(MyTable) 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] an association between the two variables, χ²(2) = 8.84, p = .007. The association was [moderate], (Cramer’s V = .42).