powered by
Brain
str(Brain) attach(Brain) plot(logbody,logbrain,pch=19,col="blue",main="Example 2.3") model <- lm(logbrain~logbody) abline(model) detach(Brain)
Run the code above in your browser using DataLab