powered by
cov2pcor
conc2pcor
cov2pcor(V) conc2pcor(K)
data(math) S <- cov.wt(math)$cov cov2pcor(S)
Run the code above in your browser using DataLab