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
Titles = c("Grafico das Observacoes","Circulo de Correlacoes")
Plot.PCA(PC,Titles,Color="S")
Run the code above in your browser using DataLab