powered by
covcomp
corcomp
corcomp(S, P) covcomp(S, P) Rd2Sd cov2cor(V)
sca
data(USJudgeRatings) S.jr <- cor(USJudgeRatings) sca.jr <- sca(S.jr, b=4, inter=FALSE) Vr <- covcomp(S.jr, P = sca.jr$simplemat) Vr Cr <- corcomp(S.jr, P = sca.jr$simplemat) Cr
Run the code above in your browser using DataLab