r - 如何对数字列表元素求和

Question

我想知道一种优雅的方法可以对列表的数值进行求和(或计算平均值)。例如

x <- list( a = matrix(c(1,2,3,4), nc=2), b = matrix(1, nc=2, nr=2))

并且想要得到

x[[1]]+x[[2]] 

或者平均值:

(x[[1]]+x[[2]])/2

Answer 1

您可以使用Reduce 连续将二元函数应用于列表中的元素。

Reduce("+",x)
     [,1] [,2]
[1,]    2    4
[2,]    3    5

Reduce("+",x)/length(x)
     [,1] [,2]
[1,]  1.0  2.0
[2,]  1.5  2.5