行列の非対角要素を抽出したい
対角要素はdiagで行けるけど、非対角要素がわからんかったので教えてもらった。
row, col()関数ってのがあるらしい。知らんかった…
> x <- matrix(1:4, 2) > x [,1] [,2] [1,] 1 3 [2,] 2 4 > x[row(x) != col(x)] [1] 2 3 > diag(x) [1] 1 4
対角要素はdiagで行けるけど、非対角要素がわからんかったので教えてもらった。
row, col()関数ってのがあるらしい。知らんかった…
> x <- matrix(1:4, 2) > x [,1] [,2] [1,] 1 3 [2,] 2 4 > x[row(x) != col(x)] [1] 2 3 > diag(x) [1] 1 4