# NOT RUN {
model <- lm(sales ~ nicotine, data = Nicotine)
plot(sales ~ nicotine, data = Nicotine)
abline(model, col = "red")
summary(model)
predict(model, newdata = data.frame(nicotine = 1),
interval = "confidence", level = 0.99)
# }
Run the code above in your browser using DataLab