# dati
data(cars)

# grafico a dispersione
plot(data = cars, dist ~ speed, ylab = "dist", xlab="speed")

# retta dei minimi quadrati
abline(lm(data = cars, dist ~ speed), col = "red")