data(DataQuan) # set of quantitative data
data <- DataQuan[,2:8]
rownames(data) <- DataQuan[1:nrow(DataQuan),1]
pc <- PCA(data, 2) # performs the PCA
print("Covariance matrix / Correlation:"); round(pc$mtxC,2)
print("Principal Components:"); round(pc$mtxAutvec,2)
print("Principal Component Variances:"); round(pc$mtxAutvlr,2)
print("Covariance of the Principal Components:"); round(pc$mtxVCP,2)
print("Correlation of the Principal Components:"); round(pc$mtxCCP,2)
print("Scores of the Principal Components:"); round(pc$mtxscores,2)
Run the code above in your browser using DataLab