>b <- by(data.frame, conditioning.variable, > function(subset) { loess(y ~ x, subset) }) > >unsplit(lapply(b,fitted), conditioning.variable) > > > That does the trick. Thanks! Hadley