# NOT RUN {
data(DataQuan) # conjunto de dados quantitativos
Data <- DataQuan[,2:8]
rownames(Data) <- DataQuan[1:nrow(DataQuan),1]
PC <- PCA(Data, 2) # executa o PCA
Tit = c("Scree-plot","Grafico das Observacoes","Circulo de Correlacoes")
Plot.PCA(PC, titles = Tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, casc = TRUE)
# }
Run the code above in your browser using DataLab