Data for Exercise 9.21
Nicotine
A data frame/tibble with eight observations on two variables
nicotine content (in milligrams)
sales figures (in $100,000)
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
# 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