対角要素は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