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

plot(Qte.ADN ~ Nb.cycles, data = ADN)
plot(log(Qte.ADN) ~ Nb.cycles, data = ADN)
summary(lm(log(Qte.ADN) ~ Nb.cycles, data = ADN))