Displaying 1 result from an estimated 1 matches for "pagei".
Did you mean:
page
2011 May 10
1
Saving multiple 3x3 TIFF graphics inside a loop
...t (not using PDF or savePlot functions) with no
success. Could you please help?
Here is a simplified example code:
dat=data.frame (ID=rep(1:10,each=10),IDV=rep(seq(1:10),times=10))
dat$DV <- with(dat, 50+15*IDV)
dat=dat[order(dat$ID,dat$IDV),]
for(i in 1:10){
dt1 = dat[dat$ID==i,]
pagei=as.integer(ceiling(i/9))
#This does not work
if(i==1) {tiff(file=paste("Outfile",pagei,".tiff",sep="")
,width=17.15,height=17.15,units="cm", res=1200, pointsize=10,
compression = "lzw")}
if(i==10) {tiff(file=paste("Outfile"...