Dear friends, I am trying to do a simple regression line. When I run abline it doesn't draw well, the line must go through the points, but it does it below
library(zoo)
library(lmtest)
plot(cars$speed,cars$dist)
modelo1=lm(speed~dist, data = cars)
abline(a=coef(modelo1)[1], b=coef(modelo1)[2])