powered by
p7.15
data(p7.15)
data(p7.15) y.lm <- lm(y ~ x, data=p7.15) plot(y ~ x, data=p7.15) abline(coef(y.lm)) plot(y.lm, which=1)
Run the code above in your browser using DataLab