r - 対角線上/下の行列の行和

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