using xyplot

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]]