I think this is what you are looking for. library(latticeExtra) t.tmp <-seq(0,30, .01) P1 + layer(panel.xyplot(y=f1(0.5,0.5,0.06, t.tmp), x=t.tmp, type="l", col="black"))
Notice that t is a very bad name for your variable as it is the name of a function. I used t.tmp instead. Rich On Mon, Aug 11, 2014 at 5:06 AM, Naser Jamil <jamilnase...@gmail.com> wrote: > Dear R-user, > May I seek your help to sort out a little problem. I have the following > codes > to draw two graphs. I want to superimpose the second one on each of the > first one. > > ######################################## > > library(nlme) > subject<-c(1,1,1,2,2,2,3,3,3) > time<-c(0.0,5.4,21.0,0.0,5.4,21.0,0.0,5.4,21.0) > con.cohort<-c(1.10971703,0.54535512,0.07176724,0.75912539,0.47825282, > 0.10593292,1.20808375,0.47638394,0.02808967) > > data.d=data.frame(subject=subject,time=time,conc=con.cohort) > grouped.data<-groupedData(formula=conc~time | subject, data =data.d) > > plot(grouped.data) > > ########################################## > > f1<-function(x,v,cl,t) { > (x/v)*exp(-(cl/v)*t) > } > t<-seq(0,30, .01) > plot(t,f1(0.5,0.5,0.06,t),type="l",pch=18, ylim=c(), xlab="time", > ylab="conc") > > > ########################################### > > Any suggestion will really be helpful. > > > Regards, > > Jamil. > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.