Linear Regression

fit = lm(dist ~ speed, data = cars)
b   = coef(fit)
plot(cars)
abline(fit)