平均矩阵列表

Question

例如，我有一个像这样的矩阵列表

list2<-lapply(1:2, function(x) matrix(rnorm(6, 10, 1), nrow=2, ncol=3))
list2

如何获得每个列表中每个矩阵具有相同大小的矩阵，并且每个单元格中的值等于列表中相应单元格的平均值。

Answer 1

我们可以通过在每个list元素中添加相应的单元格并除以length

的list来实现此目的

Reduce(`+`, list2)/length(list2)

或另一种选择是unlist list，创建3D array，使用apply获取mean

apply(array(unlist(list2), c(2,3,2)), c(1,2), mean)