[[Rのメモ]] **Chapter 1 [#x707dde3] -p.5: Table 1 > TenseAspect <-matrix(c(12,7,19,6,13,19,18,20,38),3,3) > TenseAspect [,1] [,2] [,3] [1,] 12 6 18 [2,] 7 13 20 [3,] 19 19 38 > chisq.test(TenseAspect) Pearson's Chi-squared test data: TenseAspect X-squared = 3.8, df = 4, p-value = 0.4337