bwplot in loop doesn't produce any output

Hi,

 running the following code by itself runs as expected.
 ----------------------------------------------------------------------------
 k <- 1
 i <- 2
 j <- 3
 NumName <- varnames[num.cols[k]]
 FacNames <- varnames[fac.cols[c(i,j)]]
 tmp <- paste(FacNames[1],NumName,sep="~")
 fml <- formula(paste(tmp,FacNames[2],sep="|"))
 bwplot(fml, data = X)

 ----------------------------------------------------------------------------
 But when set into a loop, it doens't produce anything. I've tried sending the output to pdf(file="test.pdf"), and the pdf file stays empty.

 for (i in 1:(lfc-1))
 {
 for (j in (i+1):lfc)
 {
 for (k in 1:lnc)
 {
 NumName <- varnames[num.cols[k]]
 FacNames <- varnames[fac.cols[c(i,j)]]
 tmp <- paste(FacNames[1],NumName,sep="~")
 fml <- formula(paste(tmp,FacNames[2],sep="|"))
 bwplot(fml, data = X)

 }
 }
 }


 Any thoughts ? And if you know how to unlock test.pdf for viewing while R is running, I'd appreciate this bit of info too (i've tried dev.off(), windows() and such, and test.pdf can only be viewed after shutting down R).

 Thank you.

 Nick.


---------------------------------

       [[alternative HTML version deleted]]