返回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