don <- read.table("https://husson.github.io/livre_exo/chap9_ex5.csv", header = TRUE, sep=";", encoding = "latin1") plot(Nb.bactéries ~ Temps, data = don) plot(log(don$Nb.bactéries) ~ Temps, data = don) summary(lm(log(don$Nb.bactéries) ~ Temps, data=don))