Somme des rangées de la matrice sur/sous la diagonale

Question

Je souhaite calculer les sommes de rang/col pour la matrice de triangle supérieure/inférieure (avec diagonale). Exemple:

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

Je sais que cela pourrait être fait avec boucle simple for, mais je veux éviter cela. Je suis à la recherche d'une solution R pure.

Answer 1

Une façon:

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