#importation cock_nappe <- read.table("AFM_nappes.csv", header=TRUE, sep=";", na.strings="", dec=",",row.names=1) #AFM cock_nappe.MFA<-cock_nappe[, c("X1", "Y1", "X2", "Y2", "X3", "Y3", "X4", "Y4", "X5", "Y5", "X6", "Y6", "X7", "Y7", "X8", "Y8", "X9", "Y9", "X11", "Y11", "X12", "Y12")] res<-MFA(cock_nappe.MFA, group=c(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), type=c("c", "c", "c", "c", "c", "c", "c", "c", "c", "c", "c"), ncp=5, name.group=c("Gc1","Gc2", "Gc3", "Gc4", "Gc5", "Gc6", "Gc7", "Gc8", "Gc9", "Gc10", "Gc11"), graph=FALSE) plot.MFA(res, axes=c(1, 2), choix="group", lab.grpe=TRUE, title="") plot.MFA(res, axes=c(1, 2), choix="axes", habillage="group", title="") plot.MFA(res, axes=c(1, 2), choix="var", lab.var=TRUE, habillage="group", lim.cos2.var=0) plot.MFA(res, axes=c(1, 2), choix="ind", lab.ind.moy=TRUE, lab.par=TRUE, habillage="ind", title="") #PMFA cock_nappe.pmfa = pmfa( cock_nappe[,c("X1", "Y1", "X2", "Y2", "X3", "Y3", "X4", "Y4", "X5", "Y5", "X6", "Y6", "X7", "Y7", "X8", "Y8", "X9", "Y9", "X11", "Y11", "X12", "Y12")], matrice.illu = NULL, coord=c(1,2), lim = c(60,40), graph.mfa=1,graph.ind=1,dilat=TRUE) #Prefmap pref_nappe <- read.table("prefmap_conso.csv", header=TRUE, sep=";", na.strings="", dec=",",row.names=1) prefnapping=carto(pref_nappe[,1:2],pref_nappe[,-c(1:2)], regmod=1,coord = c(1,2), resolution =200,level =0,nb.clusters=0,label.j=FALSE)