Try this
dat=data.frame (ID=rep(1:27,each=10),IDV=rep(seq(1:10),times=27))
dat$DV <- with(dat, 50+15*IDV)
dat=dat[order(dat$ID,dat$IDV),]
for(i in 1:27){
dt1 = dat[dat$ID==i,]
pagei=as.integer(ceiling(i/9))
#open device for subjects 1-9
if(i==1) {tiff(file=paste("Outfile",pagei,".tiff
Thanks Uwe . The parentheses were a typo. Please note that if I have only 9
subjects in my data then the following works (creates 493 KB data file)
#windows()
{tiff(file=paste("Outfile",1,".tiff",sep=""),width=17.15
,height=17.15,units="cm", res=1200, pointsize=10, compression =
"lzw")}
On 10.05.2011 03:36, John S wrote:
Dear Friends,
I have been trying to save multiple 3x3 (mfrow=c(3,3) graphics inside a loop
using tiff figure format (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:1
Dear Friends,
I have been trying to save multiple 3x3 (mfrow=c(3,3) graphics inside a loop
using tiff figure format (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))
4 matches
Mail list logo