We built a linear regression model.

fit <- lm(dist ~ speed, data = cars)

And we get the following plot.

The slope of the regression is 3.9324088.