创建一个矩阵 m 并设置为位置 mij = (i+j)*10

Question

我正在尝试创建一个 Matrix 5x5 并为矩阵的每个位置提供值，给定以下 mij = (i+j)*10。

例如在 1,1 中， (1+1)*10 = 20

Matrix:
20  30  40  50  60

30  ...

40  ...

50  ...

60  ...

一般来说，我不知道在创建矩阵时如何涉及行和列的索引。

Answer 1

> outer(1:5,1:5,"+")*10

     [,1] [,2] [,3] [,4] [,5]
[1,]   20   30   40   50   60
[2,]   30   40   50   60   70
[3,]   40   50   60   70   80
[4,]   50   60   70   80   90
[5,]   60   70   80   90  100

Answer 2

这是一个天真的解决方案：

i <- 4
j <- 5
(matrix(1:j, i, j, byrow = TRUE) + matrix(1:i, i, j)) * 10
     [,1] [,2] [,3] [,4] [,5]
[1,]   20   30   40   50   60
[2,]   30   40   50   60   70
[3,]   40   50   60   70   80
[4,]   50   60   70   80   90

Answer 3

@user2974951除了outer方法之外的另一个基本 R 解决方案

n <- 5
mat <-(t(replicate(n,seq(n)))+seq(n))*10

以至于

> mat
     [,1] [,2] [,3] [,4] [,5]
[1,]   20   30   40   50   60
[2,]   30   40   50   60   70
[3,]   40   50   60   70   80
[4,]   50   60   70   80   90
[5,]   60   70   80   90  100