data(Data_Cafes) # conjunto de dados categorizados
data <- Data_Cafes[,2:ncol(Data_Cafes)]
rownames(data) <- as.character(t(Data_Cafes[1:nrow(Data_Cafes),1]))
group.names = c("Cafe A", "Cafe B", "Cafe C", "Cafe D")
mf <- MFA(data, c(16,16,16,16), c(rep("f",4)), group.names)
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/Tipos Cafes", "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