This question already has answers here:
Creating a symmetric matrix in R
(4个答案)
Make a matrix symmetric
(1个答案)
4年前关闭。
我正在尝试将矩阵的下三角形转换为dissim矩阵,因此需要对称。
到底是怎么回事?注意,我不需要使用gdata
或者您可以使用内置
(4个答案)
Make a matrix symmetric
(1个答案)
4年前关闭。
我正在尝试将矩阵的下三角形转换为dissim矩阵,因此需要对称。
print(rdf)
X0 X1 X2 X3 X4
0 0.0000000 NA NA NA NA
1 0.5340909 0.0000000 NA NA NA
2 0.5340909 0.0000000 0.0000000 NA NA
3 0.3200000 0.5227273 0.5227273 0.0000000 NA
4 0.6263736 0.4945055 0.4945055 0.5384615 0
library(gdata)
upperTriangle(rdf) <- lowerTriangle(rdf)
isSymmetric(rdf)
X0 X1 X2 X3 X4
0 0.0000000 0.5340909 0.5340909 0.6263736 0.4945055
1 0.5340909 0.0000000 0.3200000 0.0000000 0.5227273
2 0.5340909 0.0000000 0.0000000 0.5227273 0.4945055
3 0.3200000 0.5227273 0.5227273 0.0000000 0.5384615
4 0.6263736 0.4945055 0.4945055 0.5384615 0.0000000
[1] FALSE
到底是怎么回事?注意,我不需要使用gdata
最佳答案
您需要确保要复制的元素顺序正确:
m <- matrix(NA,4,4)
m[lower.tri(m,diag=TRUE)] <- 1:10
[,1] [,2] [,3] [,4]
[1,] 1 NA NA NA
[2,] 2 5 NA NA
[3,] 3 6 8 NA
[4,] 4 7 9 10
makeSymm <- function(m) {
m[upper.tri(m)] <- t(m)[upper.tri(m)]
return(m)
}
makeSymm(m)
或者您可以使用内置
Matrix::forceSymmetric(m,uplo="L")