powered by
Psat
str(Psat) attach(Psat) model <- lm(sat~psat) plot(psat,resid(model)) detach(Psat)
Run the code above in your browser using DataLab