summary(pc.cr <- princomp(USArrests, cor = TRUE))
## The signs of the loading columns are arbitrary
print(summary(princomp(USArrests, cor = TRUE),
loadings = TRUE, cutoff = 0.2), digits = 2)
Run the code above in your browser using DataLab