On 7/11/07, Jonathan Williams <[EMAIL PROTECTED]> wrote: > Deepayan, > > Thanks for the clarification. The rectangles are completely external > to the panel data, and correspond to 90% confidence intervals built > from training data, to be overlaid on these graphs of the test data.
Right. So if you have that information in a single object (say a list), you can specify that as an argument to xyplot (or whatever), and capture that in the panel function to then index it. E.g. rectInfo <- list(matrix(runif(4), 2, 2), matrix(runif(4), 2, 2), matrix(runif(4), 2, 2)) panel.qrect <- function(x, y, ..., rect.info) { ri <- rect.info[[packet.number()]] ## if you have more than one conditioning variable, this might be ## something like ## ri <- do.call("[", list(rect.info, as.list(which.packet())))[[1]] panel.rect(ri[1, 1], ri[1, 2], ri[2, 1], ri[2, 2], col = "grey86", border = NA) panel.xyplot(x, y, ...) } xyplot(runif(30) ~ runif(30) | gl(3, 10), rect.info = rectInfo, panel = panel.qrect) -Deepayan ______________________________________________ R-help@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.