如何通过for循环将矩阵的值分配给数组

Question

我正在尝试创建一个具有 3 个维度、2 x 2 x 4 的数组。我想将矩阵重复 4 次以构建矩阵。很简单，但到目前为止还没有工作......这是我的代码：

m <- array(0,c(2,2,4))
for (i in 4) {
     m[,,i] <- array(1:4,c(2,2))
 }

结果：

, , 1

     [,1] [,2]
[1,]    0    0
[2,]    0    0

, , 2

     [,1] [,2]
[1,]    0    0
[2,]    0    0

, , 3

     [,1] [,2]
[1,]    0    0
[2,]    0    0

, , 4

     [,1] [,2]
[1,]    1    3
[2,]    2    4

最后一次迭代的预期结果：

, , 1

     [,1] [,2]
[1,]    1    3
[2,]    2    4

, , 2

     [,1] [,2]
[1,]    1    3
[2,]    2    4

, , 3

     [,1] [,2]
[1,]    1    4
[2,]    2    3

, , 4

     [,1] [,2]
[1,]    1    3
[2,]    2    4

Answer 1

您不需要循环来执行此操作。 array 回收它的输入，所以你可以这样做：

   start_matrix <- matrix(1:4, 2, 2)
   array(start_matrix, dim = c(2,2,4))