xyplot: discrete points + continuous curve per panel

I will give this a try. However, this is based on row and columns of the
panels and not on the SUBJ and DOSE information that I need to calculate the
continuous curve.
Rene 

-----Original Message-----
From: Petr Pikal [mailto:petr.pikal at precheza.cz] 
Sent: Thursday, December 14, 2006 1:18 AM
To: RMan54; r-help at stat.math.ethz.ch
Subject: Re: [R] xyplot: discrete points + continuous curve per panel

Hi

there is probably better solution but you can try to fiidle with this idea,
which adds stight lines to each panel one after another. 

# based on Gabor Grothendieck's code suggestion # adds straight lines to
panels in lattice plots

addLine<- function(...) {
tcL <- trellis.currentLayout()
for(i in 1:nrow(tcL))
  for(j in 1:ncol(tcL))
    if (tcL[i,j] > 0) {
        trellis.focus("panel", j, i, highlight = FALSE)
        panel.abline(...)
        trellis.unfocus()
        }
}

You need to change panel.abline(...) part maybe to panel.curve or
panel.segments or?

HTH
Petr

Date sent:      	Wed, 13 Dec 2006 23:22:41 -0800 (PST)
From:           	RMan54 <RMan54 at cox.net>
To:             	r-help at stat.math.ethz.ch
Subject:        	[R] xyplot: discrete points + continuous curve per
panel

I have a number of x, y observations (Time, Conc) for a number of 
Subjects (with subject number Subj) and Doses. I can plot the 
individual points with xyplot fine:

xyplot(Conc ~ Time | Subj,
         Groups=Dose,
         data=myData,
         panel =  function(x,y) { 
              panel.xyplot(x, y) 
              panel.superpose(???) # Needs more here 
         }
)

I also like to plot on each panel (there is one Subj per panel) a 
continuous curve with predictions that I can calculate from a rather 
complicated function:

myPred <- (time, subj, dose) {
       returns predicted value of Conc for a given time, subj and dose 
}

The predicted curves are different for each panel.

How do I plot the predictions? I have tried to add panel.superinpose 
in the xyplot portion but can't link to the myPred function. I also 
know about panel.curve but couldn't make it work.

My attempt is to calculate the predictions on the fly. Is this 
possible? Or do I need to calculate all predictions first and put the 
results in a data frame. Thanks for any help, Rene -- View this 
message in context:
http://www.nabble.com/xyplot%3A-discrete-points-%2B-continuous-curve-p
er-panel-tf2818931.html#a7867892 Sent from the R help mailing list 
archive at Nabble.com.

______________________________________________
R-help at stat.math.ethz.ch 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.

Petr Pikal
petr.pikal at precheza.cz