powered by
cor2cov(cormat, sds)
cov2cor
mirror.tri
covmat <- ability.cov$cov sds <- sqrt(diag(covmat)) cormat <- cov2cor(covmat) covmat.trans <- cor2cov(cormat, sds) round(covmat - covmat.trans, 10)
Run the code above in your browser using DataLab