powered by
quadline(lm.obj, ...)
lm
lines
col
data(p4.18) attach(p4.18) y.lm <- lm(y ~ x1 + I(x1^2)) plot(x1, y) quadline(y.lm) detach(p4.18)
Run the code above in your browser using DataLab