# NOT RUN {
data(DataQuan) # conjunto de dados
Data <- DataQuan[,2:ncol(DataQuan)]
rownames(Data) <- DataQuan[,1]
Resp <- FA(Data, method = "PC", type = 2, nfactor = 3)
Tit = c("Scree-plot","Scores das observacoes","Cargas Fatoriais","Biplot")
Plot.FA(Resp, titles = Tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = rep("", nrow(Data)),
casc = TRUE)
# }
Run the code above in your browser using DataLab