data(mortality)
if (FALSE) {
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")
}
Run the code above in your browser using DataLab