# NOT RUN {
data(Data_Cafes) # conjunto de dados categorizados
Data <- Data_Cafes[,2:ncol(Data_Cafes)]
rownames(Data) <- as.character(t(Data_Cafes[1:nrow(Data_Cafes),1]))
GroupNames = c("Cafe A", "Cafe B", "Cafe C", "Cafe D")
MF <- MFA(Data, c(16,16,16,16), c(rep("f",4)), GroupNames)
print("Variancias dos Componentes Principais:"); round(MF$mtxA,2)
print("Matriz das Inercias Parciais/Escores das Variaveis:"); round(MF$mtxEV,2)
Tit = c("Scree-plot","Individuos", "Individuos/Tipos Cafes", "Inercias Grupos")
Plot.MFA(MF, titles = Tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
namarr = FALSE, linlab = NA, casc = FALSE) # Imprime varios graficos da tela
# }
Run the code above in your browser using DataLab