我获得了一些可以在 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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)