donnees = data.frame(vitesse =c(20, 30, 50, 70, 90, 110, 130), distance = c(2, 5, 13, 30, 48, 65, 97));

plot(donnees$vitesse, donnees$distance, col='red', xlim = c(0, 150), ylim = c(-10, 140))

mod <- lm(distance~vitesse, data=donnees).html
summary(mod)
abline(mod)


mod2 <- lm(distance~I(vitesse^2), data=donnees).html
summary(mod2)

nouveau <- data.frame(vitesse = seq(0, 160, 0.1));
nouveau$distance <- predict(mod2, nouveau)
lines(nouveau$vitesse, nouveau$distance, col='blue')


mod3 <- lm(distance~poly(vitesse, 6), data=donnees).html
summary(mod3)

nouveau <- data.frame(vitesse = seq(0, 160, 0.1));
nouveau$distance <- predict(mod3, nouveau)
lines(nouveau$vitesse, nouveau$distance, col='magenta')