data(iris) # conjunto de dados
data <- iris[,1:4]
cls <- iris[,5] # classe dos dados
res <- FA(data, method = "PC", type = 2, nfactor = 3)
tit <- c("Scree-plot","Scores of the Observations","Factorial Loadings","Biplot")
cls <- as.character(iris[,5])
Plot.FA(FA = res, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, savptc = FALSE, size = 1.1,
posleg = 1, boxleg = FALSE, class = cls, axes = TRUE,
classcolor = c("blue3","red","goldenrod3"),
width = 3236, height = 2000, res = 300, casc = FALSE)
Run the code above in your browser using DataLab