矩阵上/下对角线的行总和

Question

我想计算上/下三角矩阵（对角线）的行/列和。例如：

m <- matrix(1:9, nrow=3) 
#result: 
upperRowSums(m) 
## [1] 12 13 9 
lowerRowSums(m) 
## [1] 1 7 18 

我知道，这可能是与简单for回路来完成，但我想避免这种情况。我正在寻找纯粹的R解决方案。

Answer 1

道：

rowSums(m * upper.tri(m, diag=TRUE)) 
#[1] 12 13 9