data(DataMix) # conjunto de dados mistos
Matriz = DataMix[,2:ncol(DataMix)]
rownames(Matriz) <- as.character(t(DataMix[1:nrow(DataMix),1]))
GroupNames=c("Notas Cafes/Trabalho","Formacao/Dedicacao","Cafes")
MF <- MFA(Matriz, c(2,2,2),TipoGrupo=c("n","c","f"), GroupNames) # realiza MFA
Titulos=c("Observacoes","Observacoes/Variaveis","Inercias Grupos Variaveis")
Plot.MFA(MF,Titulos,2,"n","s","n") # Imprime varios graficos da tela
Run the code above in your browser using DataLab