chomage <- read.table("https://husson.github.io/livre_exo/chap15_ex8.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1") library(FactoMineR) round(cor(chomage),2) res <- PCA(chomage, quanti.sup=8:14,ind.sup=19:20) summary(res)