[英]R / creating a symmetric matrix out of the vector of the lower triangle elements
我提供了一些数据,以R形式处理矢量形式。 这个大小为n(n + 1)/ 2的向量的元素应该在对称矩阵中重新排列。 例:
n<-4
x<-seq(from=1,to=n*(n+1)/2)
获得什么是一种很好的方式
mat<- 1 2 3 4
2 5 6 7
3 6 8 9
4 7 9 10
我们可以使用lower.tri
m1 <- matrix(, n, n)
m1[lower.tri(m1, diag=TRUE)] <- x
m2 <- t(m1)
m2[lower.tri(m2, diag=TRUE)] <- x
或者不是做最后两个步骤
pmax(m1, t(m1), na.rm=TRUE)
# [,1] [,2] [,3] [,4]
#[1,] 1 2 3 4
#[2,] 2 5 6 7
#[3,] 3 6 8 9
#[4,] 4 7 9 10
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.