# STAT_515_Lec_19

O <- matrix(c(39,19,12,28,18,
              172,61,44,70,37),
            nrow=2, byrow=T)
O

chisq_out <- chisq.test(O)
chisq_out$expected


chisq.test(O)