행 순서에 따라 상위 삼각형의 값을 추출

Question

나는 다음과 같은 행렬이 있습니다

mat <- matrix(1:16, 4, 4) 

> mat 
    [,1] [,2] [,3] [,4] 
[1,] 1 5 9 13 
[2,] 2 6 10 14 
[3,] 3 7 11 15 
[4,] 4 8 12 16 

내가 (대각선없이) 위쪽 삼각형을 변환하고자하는 행의 순서 벡터하기를 : 나는 당신이하는 경우 :

> mat1<-as.vector(mat[upper.tri(mat)]) 
> mat1 
[1] 5 9 10 13 14 15 

I 행에 의해 벡터 (MAT1)를 좀하고 싶습니다

는 다음과 같은 순서 : 우리는 전치을하고걸릴 수 있습니다 5,9,13,10,14,15

Answer 1

t(mat)[lower.tri(t(mat))] 
#[1] 5 9 13 10 14 15 

Answer 2

당신도이 시도 할 수 있습니다 :

indices <- which(upper.tri(mat, diag=FALSE), arr.ind=TRUE) 
mat[indices[order(indices[,1]),]] 
# [1] 5 9 13 10 14 15