# NOT RUN {
# chi-squared test of independence for college completion
# status depending on one's self-identified income class
chisq_test(gss, college ~ finrela)
# chi-squared goodness of fit test on whether self-identified
# income class follows a uniform distribution
chisq_test(gss,
response = finrela,
p = c("far below average" = 1/6,
"below average" = 1/6,
"average" = 1/6,
"above average" = 1/6,
"far above average" = 1/6,
"DK" = 1/6))
# }
Run the code above in your browser using DataLab