Hello,

Thanks for your answer, however, the resulting graph has two panels with a
loess curve per subject. I need a single panel with a loess curve per
group..

Osman

On 10/5/06, Sundar Dorai-Raj <sundar.dorai-raj@pdf.com> wrote:
>
>
>
> Osman Al-Radi said the following on 10/5/2006 3:43 PM:
> > Hi,
> >
> > for the data below:
> > time<-c(rep(1:10,5))
> > y<-time+rnorm(50,5,2)
> > subject<-c(rep('a',10),rep('b',10),rep('c',10),rep('d',10),rep('e',10))
> > group<-c(rep('A',30),rep('B',20))
> > df<-data.frame(subject,group,time,y)
> >
> > I'd like to produce a plot with a single pannel with two loess curves
> one
> > for each group. the code below does that but on two different pannels,
> I'd
> > like to have both curves on the same pannel with different colors.
> >
> > xyplot(y~time|group, groups=subject,
> >     panel=function(...){
> >         panel.loess(...)
> >         }
> >     ,data=df)
> >
> >
>
> Simple:
>
> xyplot(y ~ time | group, data = df, groups = subject,
>         panel = function(...) {
>           panel.superpose(...)
>           panel.superpose(panel.groups = panel.loess, ...)
>         })
>
> HTH,
>
> --sundar
>



-- 
Osman O. Al-Radi, MD, MSc, FRCSC
Fellow, Cardiovascular Surgery
The Hospital for Sick Children
University of Toronto, Canada

	[[alternative HTML version deleted]]

