1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| > epis_stat=data.frame(precoce[,c("CovEpi",
+ "RempliEpi","Gouts","Couleur",
+ "PartRafle","LongEpi","GrainEcla","RanGrain")])
> rownames(epis_stat)=liste
> str(epis_stat)
'data.frame': 46 obs. of 8 variables:
$ CovEpi : Factor w/ 4 levels "à peine couvert",..: 3 1 2 1 1 1 1 3 3 2 ...
$ RempliEpi: Factor w/ 3 levels "mal remplis",..: 3 3 2 2 2 2 2 3 2 1 ...
$ Gouts : Factor w/ 4 levels "Desagreable (--)",..: 2 2 2 2 2 4 2 2 2 3 ...
$ Couleur : Factor w/ 3 levels "un peu pâle",..: 2 2 2 2 2 2 3 2 3 3 ...
$ PartRafle: Factor w/ 4 levels "très mauvais",..: 4 4 3 4 4 3 3 1 3 4 ...
$ LongEpi : Factor w/ 3 levels "petit","moyen",..: 1 1 2 3 2 1 1 1 2 3 ...
$ GrainEcla: Factor w/ 2 levels "FAUX","VRAI": 1 1 2 2 1 2 2 1 1 1 ...
$ RanGrain : Factor w/ 3 levels "peu","suffisant",..: 1 1 1 2 2 1 2 2 3 3 ...
> head(epis_stat)
CovEpi RempliEpi Gouts Couleur PartRafle
A40149R bien couvert complètment remplis moyen (-) couleur moyenne très bon
A40650 à peine couvert complètment remplis moyen (-) couleur moyenne très bon
KUATUOR un peu couvert manque un peu moyen (-) couleur moyenne bon
A503344YS à peine couvert manque un peu moyen (-) couleur moyenne très bon
HMX3344YS à peine couvert manque un peu moyen (-) couleur moyenne très bon
HMX4351YS à peine couvert manque un peu tres bon (++) couleur moyenne bon
LongEpi GrainEcla RanGrain
A40149R petit FAUX peu
A40650 petit FAUX peu
KUATUOR moyen VRAI peu
A503344YS long VRAI suffisant
HMX3344YS moyen FAUX suffisant
HMX4351YS petit VRAI peu
> afcm1 <- dudi.acm(epis_stat,scann=F,nf=6)
> X11()
> par(mfrow=c(1,2))
> s.label(afcm1$li, clabel = 0.6)
Warning message:
Unused parameters: clabel
> s.label(afcm1$co)
> s.label(afcm1$co, clabel= 0.6)
Warning message:
Unused parameters: clabel |
Partager