R 你如何更有效地制作这样的矩阵

发布于05月24日

distances <- cbind(c(0,1,2,3,4,5,6,7,8,9),
                   c(1,0,1,2,3,4,5,6,7,8),
                   c(2,1,0,1,2,3,4,5,6,7),
                   c(3,2,1,0,1,2,3,4,5,6),
                   c(4,3,2,1,0,1,2,3,4,5),
                   c(5,4,3,2,1,0,1,2,3,4),
                   c(6,5,4,3,2,1,0,1,2,3),
                   c(7,6,5,4,3,2,1,0,1,2),
                   c(8,7,6,5,4,3,2,1,0,1),
                   c(9,8,7,6,5,4,3,2,1,0))

有没有更简单的方法来制作这个矩阵？

推荐答案

> toeplitz(0:9)
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    0    1    2    3    4    5    6    7    8     9
 [2,]    1    0    1    2    3    4    5    6    7     8
 [3,]    2    1    0    1    2    3    4    5    6     7
 [4,]    3    2    1    0    1    2    3    4    5     6
 [5,]    4    3    2    1    0    1    2    3    4     5
 [6,]    5    4    3    2    1    0    1    2    3     4
 [7,]    6    5    4    3    2    1    0    1    2     3
 [8,]    7    6    5    4    3    2    1    0    1     2
 [9,]    8    7    6    5    4    3    2    1    0     1
[10,]    9    8    7    6    5    4    3    2    1     0