Cor.Mat <- rbind(c(1.0000, 0.8254, 0.4261, 0.6237, 0.5901, 0.1564, 0.1551),
c(0.8254, 1.0000, 0.5583, 0.5967, 0.6692, 0.1877, 0.2246),
c(0.4261, 0.5583, 1.0000, 0.4933, 0.4455, 0.1472, 0.3433),
c(0.6237, 0.5967, 0.4933, 1.0000, 0.6403, 0.1160, 0.5316),
c(0.5901, 0.6692, 0.4455, 0.6403, 1.0000, 0.3769, 0.5742),
c(0.1564, 0.1877, 0.1472, 0.1160, 0.3769, 1.0000, 0.2833),
c(0.1551, 0.2246, 0.3433, 0.5316, 0.5742, 0.2833, 1.0000))
colnames(Cor.Mat) <- rownames(Cor.Mat) <- c("rating", "complaints", "privileges",
"learning", "raises", "critical", "advance")
SDs <- c(12.172562, 13.314757, 12.235430, 11.737013, 10.397226, 9.894908, 10.288706)
convert_cor_cov(cor_mat=Cor.Mat, sd=SDs)
Run the code above in your browser using DataLab