powered by
Allergy
attach(Allergy) X <- as.matrix(Allergy[1:3,2:4]) chisq.test(X) Xr <- as.matrix(Allergy[2:3,2:4]) chisq.test(Xr) detach(Allergy)
Run the code above in your browser using DataLab