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))