library(foreign)
a <- read.dta("r:/lowess.dta")
with(a, plot(x,y))
with(a, lines(lowess(x, y, f=.5, iter=2)))

# can add a title on with
with(a, plot(x,y, main="Lowess curve (f=0.5, iter=2)"))