data(mortality)
## Not run:
# res<-MFA(mortality,group=c(9,9),type=c("f","f"),
# name.group=c("1979","2006"))
#
# plot(res,choix="freq",invisible="ind",habillage="group")
# lines(res$freq$coord[1:9,1],mfa$freq$coord[1:9,2],col="red")
# lines(res$freq$coord[10:18,1],mfa$freq$coord[10:18,2],col="green")
#
# ## End(Not run)
Run the code above in your browser using DataLab