r - Rで行列の下対角と上対角を抽出する

Question

タイトルが示すように、行列の下対角と上対角をどのように抽出しますか?

Answer 1

を使用してdiagいます。上対角線の場合は、最後の行と最初の列を破棄するだけです。下対角の場合、最初の行、最後の列を破棄します。

m <- matrix(1:9,nrow=3)

> m
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
> diag(m)
[1] 1 5 9
> diag(m[-nrow(m),-1])
[1] 4 8
> diag(m[-1,-ncol(m)])
[1] 2 6

Answer 2

結果を再形成する必要があるかもしれません....

help(lower.tri)
help(upper.tri)
help(diag)

upper.tri と lower.tri には対角線が含まれません。