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)