data(Data_Individuos) # conjundo de dados categorizados
Matriz = Data_Individuos[,2:ncol(Data_Individuos)]
rownames(Matriz) <- as.character(t(Data_Individuos[1:nrow(Data_Individuos),1]))
GroupNames = c("Grupo 1","Grupo 2","Grupo 3","Grupo 4")
MF <- MFA(Matriz,c(16,16,16,16),c(rep("f",4)),GroupNames) # analise dos dados
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/Grupos Individuos","Inercias Grupos")
Plot.MFA(MF,Titulos,2,"n","s","n") # Imprime varios graficos da tela
Run the code above in your browser using DataLab