```{r} library(readxl) library(rcompanion) library(ggplot2) DatasetName <- read_excel(“C:/Users/User/Downloads/A4Q2.xlsx”) nationalityscholarship_table <- table(A4Q2\(status, A4Q2\)scholarship) nationalityscholarship_table barplot((nationalityscholarship_table), beside = TRUE, col = rainbow(nrow(nationalityscholarship_table)), legend = rownames(nationalityscholarship_table)) chi_result <- chisq.test(nationalityscholarship_table) chi_result # p>.05 # A Chi-Square Test of Independence was conducted to determine if there was an association between scholarship and nationality status.

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

The association was large ```