data(DataMix) # conjunto de dados mistos
data <- DataMix[,2:ncol(DataMix)]
rownames(data) <- DataMix[1:nrow(DataMix),1]
group.names = c("Notas Cafes/Trabalho", "Formacao/Dedicacao", "Cafes")
mf <- MFA(data, c(2,2,2), typegroups = c("n","c","f"), group.names) # realiza MFA
tit <- c("Scree-plot","Observacoes","Observacoes/Variaveis",
"Circulo de Correlacoes","Inercias dos Grupos Variaveis")
Plot.MFA(MFA = mf, titles = tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
groupscolor = c("blue3","red","goldenrod3"),
namarr = FALSE, linlab = NA, savptc = FALSE,
width = 3236, height = 2000, res = 300,
casc = FALSE) # Plota varios graficos da tela
Plot.MFA(MFA = mf, titles = tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
namarr = FALSE, linlab = rep("A?",10),
savptc = FALSE, width = 3236, height = 2000,
res = 300, casc = FALSE) # Plota varios graficos da tela
Run the code above in your browser using DataLab