title: "Research2Assignment" output: html_document date: "2026-09-11" --- '''{r}

install.packages("readxl") install.packages("rcompanion") install.packages("ggplot2")

library(readxl) library(rcompanion) library(ggplot2)

table(A4Q2$status, A4Q2$scholarship)

polittable <- table(A4Q2$status, A4Q2$scholarship) polittable

barplot(polittable, beside = TRUE, col = rainbow(nrow(polittable)), legend = rownames(polit_table))

chiresult <- chisq.test(polittable)

chi_result

rcompanion::cramerV(polit_table) #Moderate association

'''