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

summary(lm(Amertume~Caféine + Alun + I(Caféine^2) + I(Alun^2) + I(Caféine*Alun),data = Données))

summary(lm(Astringence~Caféine + Alun + I(Caféine^2) + I(Alun^2) + I(Caféine*Alun),data = Données))