powered by
data(smokehealth) m <- smokehealth m[,3] <- m[,3]+ m[,4] m[4,] <- m[4,] + m[5,] m <- m[1:4,1:3] gkgamma(m) chisq.test(m)
Run the code above in your browser using DataLab