Poulpe <- read.table("https://husson.github.io/livre_exo/chap9_ex6.csv", header = TRUE, sep=";", encoding = "latin1") summary(lm(Pds.éviscéré ~ Pds.non.éviscéré , data=Poulpe)) summary(lm(Pds.éviscéré ~ -1 + Pds.non.éviscéré , data=Poulpe))