x <- matrix(c(12,9,8,10),nr=2) chisq.test(x)