r - 如何对矩阵内列表的元素求和并将它们存储到矩阵中

Question

我正在用更大的矩阵解决更复杂的问题，为简单起见，我从更小的矩阵开始。我想对所有列表的每个列表中的每个组件列表求和，并将每个列表存储在以下示例中的 4 x 4 矩阵中。我首先定义以下矩阵，即内部列表形式的向量：

matex<-matrix(c(1,2,3,4),4,4)
matex_s<-matrix(list(rep(NA,4)),nrow = 4,ncol = 4)
for (i in 1:4){
for (j in 1:4){
matex_1[[i,j]]<-matex[i,]*matex[j,]

}  
}

我想对矩阵内的每个向量求和，因此我尝试了以下代码：

matex_2<-matrix(0,4,4)
for (i in 1:4){
for (j in 1:4){
matex_2[i,j]<-sum(matex[[i,j])
}

  }   

但是，嵌套的 for 循环没有运行，也没有错误消息。我猜上面的代码有问题，我相信它与matex_2有关。它可能没有正确地将数据存储在 matex_2 上。

问题：

有人可以帮我解决这个问题吗？

提前致谢！

标签： r