xyplot and abline

I wonderif there is a simple way to draw  a regression line in  the xyplot:

Try:

xyplot(y  ~  x| age.cut, xlab="x", ylab="y", type=c("p","r"))

Hadley