Taille <- read.table("https://husson.github.io/livre_exo/chap10_ex1.csv", header = TRUE, sep=";", encoding = "latin1") round(cor(Taille),5) summary(lm(Fille ~ Père, data = Taille)) summary(lm(Fille ~ Mère, data = Taille)) summary(lm(Fille ~ Père + Mère, data = Taille))