我想计算上/下三角矩阵(带对角线)的行/列总和。示例:
m <- matrix(1:9, nrow=3)
#result:
upperRowSums(m)
## [1] 12 13 9
lowerRowSums(m)
## [1] 1 7 18
我知道这可以通过简单的 for
循环来完成,但我想避免这种情况。我正在寻找纯 R
解决方案。
最佳答案
一种方法:
rowSums(m * upper.tri(m, diag=TRUE))
#[1] 12 13 9
关于对角线上/下矩阵的行和,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24480220/