data(DataQuan) # conjunto de dados quantitativos
Dat <- DataQuan[,2:8]
rownames(Dat) <- as.character(t(DataQuan[1:nrow(DataQuan),1]))
PC <- PCA(Dat, 1) # Executa o PCA
print("Matriz de Covariancia/Correlacao:"); round(PC$MatrixMC,2)
print("Componentes Principais:"); round(PC$MatrixAutoVec,2)
print("Variancias dos Componentes Principais"); round(PC$MatrixAutoVlr,2)
print("Covariancia dos Componentes Principais"); round(PC$MatrixVCP,2)
print("Correlacao dos Componentes Principais"); round(PC$MatrixCCP,2)
print("Escores dos Componentes Principais"); round(PC$MatrixEsc,2)
Run the code above in your browser using DataLab