매트릭스를 R

Question

행렬로 다시 정렬합니다. 이와 같이 보입니다. 정사각형입니다

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"))) 

삼각형 아래 및 위쪽 요소를 더하고 행렬의 위쪽 삼각형을 비워야합니다. 결과는 다음과 같습니다.

  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"))) 

효과적인 방법은 무엇입니까?

이

Answer 1

우리는

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