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