从子矩阵中提取

Question

mat = replicate (100,{x = matrix(data = rep(NA, 80), ncol = 2)})
for (k in 1:100)
{
mat[,,k]<-out$'k'$position
}
mat

  

mat [，，k]＆lt; - out $'k'$位置错误：        要替换的项目数量不是替换长度的倍数

它适用于mat[,,1]<-out$’1’$position但是当我循环100次时，会发生错误。

Answer 1

我们需要使用[[代替$

for(k in 1:100) mat[,,k] <- out[[k]]$position
head(mat[,,1])
#     [,1] [,2]
#[1,]    4   10
#[2,]    4    9
#[3,]    4    8
#[4,]    1   10
#[5,]    4    7
#[6,]    1    9