Matrix in R

Question

neu anordnen Eine Matrix, mit der ich arbeite, sieht so aus. Es ist quadratisch

structure(c(3, 4, 2, 4, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 
    0, 0, 0, 2, 2, 0, 3, 9), .Dim = c(5L, 5L), .Dimnames = list(c("a1", 
    "a2", "a3", "a4", "a5"), c("a1", "a2", "a3", "a4", "a5"))) 

ich brauche die Elemente unterhalb und oberhalb der Triagonal zu addieren und das obere Dreieck der Matrix zu leeren. Das Ergebnis sieht so aus:

  structure(c(3, 4, 2, 4, 2, 0, 0, 3, 0, 2, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 3, 0, 0, 0, 0, 9), .Dim = c(5L, 5L), .Dimnames = list(c("a1", 
"a2", "a3", "a4", "a5"), c("a1", "a2", "a3", "a4", "a5"))) 

Gibt es einen effizienten Weg, das zu tun? So fügen Sie einfach UPT die Werte der unteren und der oberen Hälfte in der unteren Hälfte des Elements -

Answer 1

Wir können versuchen,

m1[lower.tri(m1)] <- m1[lower.tri(m1)] + t(m1)[lower.tri(m1)] 
m1[upper.tri(m1)] <- 0 
identical(m1, m2) 
#[1] TRUE