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))