library(FactoMineR)
vinos = read.table("http://factominer.free.fr/libra/vins.csv",header=TRUE,row.names=1,sep=";")
colnames(vinos)=c("1S.Michaud","2S.Renaudie","3S.Trotignon","4S.Buisse","5S.BuisseCristal","6C.AubSilex","7C.Aub.Marigny","8C.FontDomaine","9C.FontBrűlés","10C.FontCoteaux","Somme")
res.ca=CA(vinos,col.sup=11,row.sup=nrow(vinos))
barplot(res.ca$eig[,1],main="Valores propios",names.arg=1:nrow(res.ca$eig))
round(res.ca$eig,3)