data(Data_Individuos) # conjundo de dados categorizados
data <- Data_Individuos[,2:ncol(Data_Individuos)]
rownames(data) <- as.character(t(Data_Individuos[1:nrow(Data_Individuos),1]))
group.names = c("Grupo 1", "Grupo 2", "Grupo 3", "Grupo 4")
mf <- MFA(data, c(16,16,16,16), c(rep("f",4)), group.names) # analise dos dados
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/Grupos Individuos", "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