w=matrix(c(10,4,13,12,16,15,9,9,2,10),nrow=2)
colnames(w)=c("A","B","C","D","F")
rownames(w)=c("online","traditional")
chisq.test(w)
E=chisq.test(w)$expected