powered by
Readiq
str(Readiq) attach(Readiq) plot(IQ,reading) model <- lm(reading~IQ) abline(model) detach(Readiq)
Run the code above in your browser using DataLab