Hi R community,

I'm running R 2.7.2 on Windows XP SP2.

I'm trying to (1)  plot loess lines for each of my groupings using the same
color for each group; (2) plot loess predicted values.

The first part is easy:
 data1 <-
data.frame(Names=c(rep("Jon",9),rep("Karl",9)),Measurements=c(2,4,16,25,36,49,64,81,100,1,2,5,12,17,21,45,54,67),PlotAt=c(1:9,1:9))

 data2 <-
data.frame(Names=c(rep("Jonah",9),rep("Beth",9)),Measurements=c(1:5,1,1,1,1,rep(20,9)),PlotAt=c(1:9,1:9))

xyplot(Measurements ~ PlotAt, data = data1, groups=Names,

 panel = function(...) {
    panel.superpose(...,col="gray",lty=1,lwd=2);
    },
  panel.groups = function(...) panel.loess(...)
  )

My question is, how do I plot predicted values from loess to extend the
lines beyond the range of x? Let's say I want all lines to stop at x = 15.
Is there an easy way to do this?


Thanks for any help,
-AK

	[[alternative HTML version deleted]]

