計算列表或3D數組中的矩陣之和

Question

給定一個2x2矩陣的列表（長度= n），我該如何計算所有這些矩陣的總和（並得到一個2x2矩陣）？

我該怎麼做，如果不是列表而是列表中有這些矩陣在（2 x 2 x n）維數組中？

Answer 1

的總和列表中的矩陣：

Reduce("+", matrix_list) 

Answer 2

我會惹陣列，所以如果你有一個list例如：

n <- 5 
someList <- lapply(1:n, function(i) matrix(1:4+(i-1)*4,2,2)) 

改造它到3d array

someArray <- array(unlist(someList), c(2,2,n)) 

現在你可以使用rowSums

rowSums(someArray, dims=2) 
#  [,1] [,2] 
# [1,] 45 55 
# [2,] 50 60