#MFAmix:
data(INSEE)
class.var<-c(1,1,1,1,1,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,
5,5,1,1,1,1,6,7,7,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,8,1)
nom.groupes<-c("Log_Services","Population","Emplois","Condit_Famil",
"Educ","Revenu","Environnement","Secu_et_Soins")
res<-MFAmix(data=INSEE,group=class.var,name.group=nom.groupes,ndim=5,graph=FALSE)
#Predict on the same data, we obtain the same scores
res.pred<-predict(res,data=INSEE,group=class.var,name.group=nom.groupes)
res$ind$coord/res.pred
Run the code above in your browser using DataLab