powered by
estfun(x, ...)
"lm"
"glm"
"rlm"
lm
glm
rlm
x <- sin(1:10) y <- rnorm(10) fm <- lm(y ~ x) estfun(fm) residuals(fm) * cbind(1, x)
Run the code above in your browser using DataLab