# NOT RUN {
M <- rbind(c(150, 130, 35, 55),
c(100, 50, 10, 40),
c(165, 65, 2, 25))
dimnames(M) <- list(Study = c("Psych", "Econ", "Law"),
Music = c("Pop", "Rock", "Jazz", "Classic"))
M
phi(M)
cramers_v(M)
Performance <-
matrix(c(794, 86, 150, 570),
nrow = 2,
dimnames = list("1st Survey" = c("Approve", "Disapprove"),
"2nd Survey" = c("Approve", "Disapprove")))
cohens_g(Performance)
# }
Run the code above in your browser using DataLab