# NOT RUN {
data(marty)
## Perform a MFA on splitted data
resMFA <- runMFA(Data=list(group1=t(marty[1:100,]),
group2=t(marty[101:200,])), type=c("c", "c"), graph=FALSE)
# }
# NOT RUN {
## plot global analysis with partial individuals
plot(resMFA, choix="ind", partial="all")
## plot groups link
plot(resMFA, choix="group")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab