Bac <- read.table("https://husson.github.io/livre_exo/chap15_ex9.csv", header = TRUE, sep=";", encoding = "latin1") library(FactoMineR) Bac[,1] <- as.factor(Bac[,1]) round(cor(Bac[,2:12]),2) res <- PCA(Bac, quali.sup = 1) summary(res)