powered by
Cigarett
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