x <- matrix(c(141,29,43,26,5,10,26,12,10), nc=3)
pprint(chisq.test(x), format = "chisq")
pprint(chisq.test(x), format = "chisq", n.name = "n")
pprint(chisq.test(x), format = "chisq", print.n = FALSE)
Run the code above in your browser using DataLab