我想知道一种优雅的方式,允许对列表的数值求和(或计算平均值).例如
x <- list( a = matrix(c(1,2,3,4), nc=2), b = matrix(1, nc=2, nr=2))
Run Code Online (Sandbox Code Playgroud)
并希望得到
x[[1]]+x[[2]]
Run Code Online (Sandbox Code Playgroud)
或者意思是:
(x[[1]]+x[[2]])/2
Run Code Online (Sandbox Code Playgroud) 我有一个包含三个矩阵的列表:
a<-matrix(runif(100))
b<-matrix(runif(100))
c<-matrix(runif(100))
mylist<-list(a,b,c)
Run Code Online (Sandbox Code Playgroud)
我想获得三个矩阵中每个元素的平均值.
我尝试过:aaply(laply(mylist, as.matrix), c(1, 1), mean)但是这会返回每个矩阵的均值,而不是像每个矩阵那样取均值rowMeans().
我有多个矩阵,尺寸相同如下: -
> A
x y z
[1,] 2 4 3
[2,] 1 5 7
> B
x y z
[1,] 4 3 3
[2,] 1 8 7
> C
x y z
[1,] 4 3 3
[2,] 1 8 7
>
Run Code Online (Sandbox Code Playgroud)
如何创建包含所有三个矩阵平均值的相同维度的新矩阵?
r ×3