当我们使用更大的矩阵并且期望数据来自相同的分布或来自相同的来源时，我们可能会期望矩阵相等。在这种情况下，我们要检查两个矩阵是否相等。可以all.equal在以下示例中所示的功能的帮助下完成此操作。
M1<-matrix(1:100,ncol=10) M1输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 1 11 21 31 41 51 61 71 81 91 [2,] 2 12 22 32 42 52 62 72 82 92 [3,] 3 13 23 33 43 53 63 73 83 93 [4,] 4 14 24 34 44 54 64 74 84 94 [5,] 5 15 25 35 45 55 65 75 86 96 [7,] 7 17 27 37 47 57 67 77 87 97 [8,] 8 18 28 38 48 58 68 78 88 98 [9,] 9 19 29 39 49 59 69 79 89 99 [10,] 10 20 30 40 50 60 70 80 90 100
M2<-matrix(1:100,ncol=10) M2输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 1 11 21 31 41 51 61 71 81 91 [2,] 2 12 22 32 42 52 62 72 82 92 [3,] 3 13 23 33 43 53 63 73 83 93 [4,] 4 14 24 34 44 54 64 74 84 94 [5,] 5 15 25 35 45 55 65 75 85 95 [6,] 6 16 26 36 46 56 66 76 86 96 [7,] 7 17 27 37 47 57 67 77 87 97 [8,] 8 18 28 38 48 58 68 78 88 98 [9,] 9 19 29 39 49 59 69 79 89 99 [10,] 10 20 30 40 50 60 70 80 90 100
all.equal(M1,M2)
[1] TRUE
M3<-matrix(rpois(64,10),nrow=8) M3输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 8 7 7 9 11 13 8 9 [2,] 9 9 9 11 8 10 9 8 [3,] 7 8 9 12 15 11 9 8 [4,] 11 10 15 11 11 11 10 14 [5,] 14 13 14 8 12 12 2 16 [6,] 7 12 6 10 3 5 9 12 [7,] 13 7 15 10 4 7 8 8 [8,] 6 13 7 9 11 12 13 7
M4<-matrix(rpois(64,10),nrow=8) M4输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 11 10 9 5 14 4 8 13 [2,] 12 9 15 10 11 11 11 14 [3,] 5 12 12 12 7 20 13 11 [4,] 4 12 16 17 13 9 8 14 [5,] 11 17 13 14 10 6 16 12 [6,] 14 11 8 16 10 12 7 11 [7,] 10 10 8 10 6 12 8 12 [8,] 7 15 8 10 5 11 11 5
all.equal(M3,M4)
[1] "Mean relative difference: 0.3885918"
M5<-matrix(rpois(40,5),nrow=20) M5输出结果
[,1] [,2] [1,] 2 12 [2,] 5 3 [3,] 8 4 [4,] 8 7 [5,] 10 9 [6,] 7 10 [7,] 3 4 [8,] 5 9 [9,] 7 5 [10,] 2 1 [11,] 3 11 [12,] 3 5 [13,] 4 3 [14,] 9 3 [15,] 2 7 [16,] 8 9 [17,] 2 9 [18,] 7 3 [19,] 0 7 [20,] 5 6
M6<-matrix(rpois(40,5),nrow=20) M6输出结果
[,1] [,2] [1,] 2 8 [2,] 6 9 [3,] 4 7 [4,] 1 2 [5,] 3 3 [6,] 2 4 [7,] 4 7 [8,] 6 6 [9,] 5 5 [10,] 3 1 [11,] 7 6 [12,] 6 6 [13,] 2 4 [14,] 7 3 [15,] 7 4 [16,] 4 4 [17,] 4 3 [18,] 3 4 [19,] 10 6 [20,] 4 6
all.equal(M5,M6)
[1] "Mean relative difference: 0.5952381"