Eaux <- read.table("https://husson.github.io/livre_exo/chap15_ex5.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1") cor(Eaux) library(FactoMineR) res <- PCA(Eaux, quanti.sup = 12) summary(res)