r - Rで距離行列の両方の半分を返す

Question

外部距離オブジェクト ( gdis) があり、距離行列の両方の半分を含む行列に変換する必要があります。現在、これを実現するために印刷機能を使用しています。スクリプトを実行するたびにマトリックス全体を出力しなければならないのはかなり面倒です。これを回避する方法はありますか？

wgdis<-print(gdis, upper=TRUE)

Answer 1

m <- matrix(rpois(50,5), nrow=5)
m2 <- dist(m)
attr(m2, "Upper") <- TRUE
m2
          1         2         3         4         5
1           12.083046 11.135529 11.958261 12.529964
2 12.083046            6.928203 10.148892  8.062258
3 11.135529  6.928203            8.660254  9.643651
4 11.958261 10.148892  8.660254           14.491377
5 12.529964  8.062258  9.643651 14.491377