# NOT RUN {
data(DataMix) # conjunto de dados mistos
Data <- DataMix[,2:ncol(DataMix)]
rownames(Data) <- DataMix[1:nrow(DataMix),1]
GroupNames = c("Notas Cafes/Trabalho", "Formacao/Dedicacao", "Cafes")
MF <- MFA(Data, c(2,2,2), typegroups = c("n","c","f"), GroupNames) # realiza MFA
Tit = c("Scree-plot","Observacoes","Observacoes/Variaveis","Inercias dos Grupos Variaveis")
Plot.MFA(MF, titles = Tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
namarr = FALSE, linlab = NA,
casc = FALSE) # Plota varios graficos da tela
Plot.MFA(MF, titles = Tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
namarr = FALSE, linlab = rep("A?",10),
casc = FALSE) # Plota varios graficos da tela
# }
Run the code above in your browser using DataLab