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

round(cor(Cocktail),2)

anova(lm(Appréciation ~ . , data=Cocktail))

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

CocktailCR <- as.data.frame(scale(Cocktail))
summary(lm(Appréciation ~ . , data=CocktailCR))