Jambon <- read.table("https://husson.github.io/livre_exo/chap10_ex7.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1")

summary(lm(Appréciation ~ . , data=Jambon))

library(FactoMineR)
RegBest(y = Jambon[,15], x = Jambon[,-15])