小编itf*_*com的帖子

如何通过将每个原始值除以原始矩阵中该列的原始平方值的平方根来获得.

data(longley)
X <- as.matrix(longley[,-7])

X/sqrt(colSums(X^2))

得出错误的结果.

我在R语言工作.我想强加条件,如果矩阵的任何上对角线元素大于0.5,那么它会在输出中打印它.

我使用以下代码,但它打印的不是对角线元素,不是必需的.

for(i in 1:ncol(X))

for (j in i+1:ncol(X)-i){
if(mat(X)[i,j]>0.5)

#upper.tri(cor(X),diag=F)

cat(i,",",j," th element", " > 50%","\n")
}

提前致谢