# NOT RUN {
data(DataQuan) # conjunto de dados quantitativos
data <- DataQuan[,2:8]
rownames(data) <- DataQuan[1:nrow(DataQuan),1]
PC <- PCA(data = data, 2) # executa o PCA
print("Matriz de Covariancia/Correlacao:"); round(PC$mtxC,2)
print("Componentes Principais:"); round(PC$mtxAutvec,2)
print("Variancias dos Componentes Principais:"); round(PC$mtxAutvlr,2)
print("Covariancia dos Componentes Principais:"); round(PC$mtxVCP,2)
print("Correlacao dos Componentes Principais:"); round(PC$mtxCCP,2)
print("Escores dos Componentes Principais:"); round(PC$mtxscores,2)
# }
Run the code above in your browser using DataLab