MFA(Data, Grupo, TipoGrupo = rep("n", length(Grupo)), NomeGrupos = NULL)
Plot.MFA
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
print("Variancias dos Componentes Principais:")
print(round(MF$MatrixA,2))
print("Matriz das Inercias Parciais/Escores das Variaveis:")
print(round(MF$MatrixEscVar,2))
Run the code above in your browser using DataLab