#Heart data heart=matrix(c(146,106,29,750,590,292)) chisq.test(heart)$expected chisq.test(heart) #Feral hog rooting data hog=matrix(c(120,1080,190,1010,240,960),byrow=T, ncol=2) chisq.test(hog)$expected chisq.test(hog)