Poulpe <- read.table("https://husson.github.io/livre_exo/chap9_ex11.csv", header = TRUE, sep=";", encoding = "latin1", stringsAsFactors = TRUE)

summary(lm(PdsEviscéré~-1 + PdsNonEviscéré,data=Poulpe,subset=(Sexe=="M")))
summary(lm(PdsEviscéré~-1 + PdsNonEviscéré,data=Poulpe,subset=(Sexe=="F")))