> m <-matrix(data, 2, byrow=T) > m [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [1,] 1 1 9 6 14 22 16 19 15 20 25 26 27 21 [2,] 0 0 2 6 7 6 14 21 20 21 25 29 28 31 [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [1,] 31 32 28 28 14 23 24 20 18 42 29 28 [2,] 32 30 32 22 26 30 22 32 31 24 32 36 [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [,38] [1,] 29 26 28 26 23 21 24 12 16 24 16 20 [2,] 37 21 16 28 25 22 29 18 16 20 13 21 [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [,50] [1,] 16 17 15 9 13 15 14 7 9 16 22 8 [2,] 22 15 14 19 14 8 11 10 14 10 7 7 [,51] [,52] [,53] [,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] [,62] [1,] 10 3 11 6 8 9 8 7 5 2 6 6 [2,] 7 11 16 6 8 4 5 10 8 10 5 1 [,63] [,64] [,65] [,66] [,67] [,68] [,69] [,70] [,71] [,72] [,73] [,74] [1,] 5 5 4 4 3 1 3 2 3 3 5 4 [2,] 4 2 3 4 4 6 4 1 1 3 2 4 [,75] [,76] [,77] [,78] [,79] [,80] [,81] [,82] [,83] [,84] [,85] [,86] [1,] 4 1 2 2 5 2 0 1 2 1 2 2 [2,] 2 4 0 4 0 1 1 1 2 2 1 1 [,87] [,88] [,89] [,90] [,91] [,92] [,93] [,94] [,95] [,96] [,97] [,98] [1,] 2 0 1 1 0 1 3 0 1 1 1 0 [2,] 0 1 1 1 1 2 0 2 0 1 0 1 [,99] [,100] [,101] [,102] [,103] [,104] [,105] [,106] [,107] [,108] [1,] 1 1 1 1 1 0 1 1 1 1 [2,] 1 0 0 2 0 1 0 0 0 0 [,109] [,110] [,111] [,112] [,113] [,114] [,115] [,116] [,117] [,118] [1,] 1 1 0 1 2 0 1 0 0 1 [2,] 0 0 1 0 0 1 0 1 1 0 > chisq.test(m) Pearson's Chi-squared test data: m X-squared = 135.3232, df = 117, p-value = 0.1183 Warning message: Chi-squared approximation may be incorrect in: chisq.test(m)