powered by
PRESS(x)
lm
data(p4.18) attach(p4.18) y.lm <- lm(y ~ x1 + I(x1^2)) PRESS(y.lm) detach(p4.18)
Run the code above in your browser using DataLab