1 2 3 4 5 6 7 8 9 10 11
| rokval.MFA<-rokval[, c("d_tsol", "d_delai", "d_desh", "d_rdtbas", "d_rdtirg", "d_recolt", "d_smce", "d_info", "d_hum", "Sw_secucat", "Sw_reucat",
"Sw_uvNacat", "Sw_Bvcat", "Sw_autocat", "syst_expl")]
res<-MFA(rokval.MFA, group=c(9, 5, 1), type=c("n", "n", "n"), ncp=5, name.group=c("diff", "val", "syst"), num.group.sup=c(2, 3), graph=FALSE)
res.hcpc<-HCPC(res ,nb.clust=-1,consol=TRUE,min=3,max=10,graph=TRUE)
res.hcpc$data.clust[,ncol(res.hcpc$data.clust),drop=F]
res.hcpc$desc.var
res.hcpc$desc.axes
res.hcpc$desc.ind
summary(res, nb.dec = 3, nbelements=10, nbind = 10, ncp = 3, file="")
remove(rokval.MFA) |
Partager