chiens<-c(
"TGrand", "Lourd",  "TRapide", "TInt", "Affect",  "Agress", 
"Petit",  "Leger",  "Lent",    "PInt", "PAffect", "Agress",
"TGrand", "Lourd",  "TRapide", "TInt", "Affect",  "Agress", 
"Grand",  "Lourd",  "Rapide",  "Int",  "Affect",  "Agress", 
"Petit",  "Leger",  "Lent",    "Int",  "Affect",  "PAgress",
"TGrand", "TLourd", "Lent",    "TInt", "PAffect", "Agress",
"Petit",  "Leger",  "Rapide",  "TInt", "Affect",  "PAgress",
"Petit",  "Leger",  "Lent",    "PInt", "Affect",  "PAgress",
"Grand",  "Leger",  "Lent",    "Int",  "Affect",  "Agress",
"TGrand", "Lourd",  "TRapide", "Int",  "Affect",  "PAgress",
"Grand",  "Lourd",  "Rapide",  "Int",  "Affect",  "PAgress",
"TGrand", "Lourd",  "TRapide", "TInt", "PAffect", "Agress",
"TGrand", "TLourd", "TRapide", "PInt", "PAffect", "Agress",
"Grand",  "Lourd",  "Rapide",  "TInt", "Affect",  "PAgress",
"TGrand", "Lourd",  "Rapide",  "Int",  "PAffect", "PAgress",
"TGrand", "Lourd",  "TRapide", "PInt", "PAffect", "Agress",
"Petit",  "Leger",  "Rapide",  "Int",  "Affect",  "Agress",
"TGrand", "Lourd",  "Rapide",  "PInt", "PAffect", "Agress",
"Grand",  "Lourd",  "Rapide",  "Int",  "Affect",  "PAgress",
"TGrand", "Lourd",  "TRapide", "PInt", "PAffect", "PAgress",
"TGrand", "TLourd", "Lent",    "PInt", "PAffect", "Agress",
"Petit",  "Leger",  "Lent",    "PInt", "Affect",  "PAgress",
"TGrand", "Lourd",  "TRapide", "TInt", "PAffect", "PAgress",
"TGrand", "TLourd", "Lent",    "Int",  "PAffect", "Agress",
"TGrand", "Lourd",  "TRapide", "Int",  "PAffect", "PAgress",
"Petit",  "Leger",  "Lent",    "Int",  "Affect",  "PAgress",
"TGrand", "TLourd", "Lent",    "Int",  "PAffect", "PAgress"
)
tab<-matrix(chiens, ncol=6, byrow=TRUE)
colnames(tab)<-c("Taille", "Poids", "Velocite", "Intell.", "Affection", "Agressiv.")
rownames(tab)<-c("Beauceron", "Basset", "BergerAll", "Boxer", "BullDog", "BullMast", "Caniche", "Chihuahua", "Cocker", "Colley", "Dalmatien", "Doberman", "DogueAll", "EpagnB", "EpagnF", "FoxH", "FoxT", "Gascogne", "Labrador", "Levrier", "Mastiff", "Pekinois", "Pointer", "StBernard", "Setter", "Teckel", "TerreNeuve")
tab<-data.frame(tab)
acm.burt(tab,tab)
acm.disjonctif(tab)
chiens.acm <-dudi.acm(tab, scann = FALSE, nf = 3)
chiens.acm
acmin <- inertia.dudi(chiens.acm,col.inertia=T,row.inertia=T)
acmin$TOT
scatter.dudi(chiens.acm,clab.row=0.80,clab.col=1.2,posieig="none")
scatterutil.eigen(chiens.acm$eig,nf=3,box=T,sub="")