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)
## plot global analysis with partial individuals
plot(resMFA, choix="ind", partial="all")
## plot groups link
plot(resMFA, choix="group")Run the code above in your browser using DataLab