Pluvio <- read.table("https://husson.github.io/livre_exo/chap15_ex4.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1") colnames(Pluvio)[19] <- "% de mai à août" cor(Pluvio) library(FactoMineR) res <- PCA(Pluvio, quanti.sup = 13:ncol(Pluvio)) summary(res)