lowess(x, y, f = 2/3, iter = 3, delta = .01*range(x))
Chambers, J. M., Cleveland, W. S., Kleiner, B. and Tukey, P. A. (1983). Graphical Methods for Data Analysis. Wadsworth, Belmont, California.
x <- car.miles y <- car.galsplot(x,y) lines(lowess(x,y)) # scatter plot with smooth
fit <- lowess(x,y) resid <- y-approx(fit,x)$y # residual from smooth