powered by
Data for Exercise 2.27
Cigarett
A data frame with 16 observations on the following 2 variables.
cigarett
a numeric vector
weight
# NOT RUN { str(Cigarett) attach(Cigarett) plot(cigarett,weight) model <- lm(weight~cigarett) abline(model) cor(weight,cigarett) detach(Cigarett) # }
Run the code above in your browser using DataLab