Continuing with your example.
Is this what you have in mind?
Rich
panel.estcontplot <- function(x, y, ..., col.points="black") {
cest.gr=kde2d(x, y)
cest.gr.lat=con2tr(cest.gr)
panel.contourplot(cest.gr.lat$x, cest.gr.lat$y, cest.gr.lat$z,
subscripts=seq(nrow(cest.gr.lat)), ...)
panel.xyplot(x, y, ..., col=col.points)
}
xyplot(y ~ x | grp, panel=panel.estcontplot)
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
