b <- by(data.frame, conditioning.variable, function(subset) { loess(y ~ x, subset) })
unsplit(lapply(b,fitted), conditioning.variable)
That does the trick. Thanks! Hadley
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
