Dear R-sians!
I am trying generate a bunch of xyplots

library(lattice)
myPanel <- function(x,y,xl=range(x),yl=range(y),...) {
      panel.xyplot(x,y,    pch=20,col='blue',cex=0.7,xlim=xl,ylim=yl,...)
      panel.abline(v=0, col='gray30',lty=2,lwd=1.5,...)
      panel.loess(x,y,
span=2/3,family='gaussian',normalize=T,col='red',lwd=1.5,...)
#      panel.lmline(x,y, col='red',lwd=1.5,...)
      }

nms <- names(tmp7)[c(3:7,9)]
for (i in nms) {
 tmp1  <- xyplot(i~pk, data=tmp7, # different y's in the loop; x is same for
all
          as.table=T,panel=myPanel,main=paste('PK vs',i,'- overall'))
  pdf(paste("pkvs",i,"a.pdf",sep=""),w=10,h=8)
   print(tmp1)
  dev.off()
}

The above code does not seem to work. I was not able to use sapply with a
FUN=xyplot, either.
I was, however, able to generate the plots (with xyplot) when I hard-code
the index value!

Could you please help me troubleshooting the above code? If you can also
help with an alternate code using sapply, it would be helpful!


Thanks much in advance!

Regards,
Santosh

	[[alternative HTML version deleted]]


