data(Data_Cafes) # conjundo de dados categorizados
Matriz = Data_Cafes[,2:ncol(Data_Cafes)]
rownames(Matriz) <- as.character(t(Data_Cafes[1:nrow(Data_Cafes),1]))
GroupNames =c("Cafe A","Cafe B","Cafe C","Cafe D")
MF <- MFA(Matriz,c(16,16,16,16),c(rep("f",4)),GroupNames)
print("Variancias dos Componentes Principais:")
print(round(MF$MatrixA,2))
print("Matriz das Inercias Parciais/Escores das Variaveis:")
print(round(MF$MatrixEscVar,2))
Titulos=c("Individuos","Individuos/Tipos Cafes","Inercias Grupos")
Plot.MFA(MF,Titulos,2,"n","s","n") # Imprime varios graficos da tela
Run the code above in your browser using DataLab