RDX2 X  xplot source dev <- switch(device, ps=postscript, pdf=pdf, png=png, / jpeg=jpeg, bitmap=bitmap)  if(device!=""){ 0 fname <- paste(nam,".", ext, sep="")  print(fname) ? dev(file=fname,width=width, height=height, horiz=F) } K oldpar <- par(mfrow=c(3,2), mar=c(2.6,3.6,2.6,1.6),mgp=c(1,0.25,0))  on.exit(par(oldpar)) 4 for(i in images)FUN(data[,i], layout=layout) , mtext(side=3,line=0.5, nam, outer=T)  if(device!="")dev.off()  }þý data $ coralRG Rþ images :?ð@þ layoutÿÿ printerþ FUN slide.image$ device  namþ width@ height@&þ { <- ÿ as.character substituteÿþþþÿ ÿ paste [ ÿ@þÿ ÿ@þ sep :þþÿ nch nchar ÿþþÿ ext switch ÿ ps ps pdf pdf png png jpeg jpg bitmap bmpþþÿ devÿ ÿÿ postscriptÿÿÿÿÿÿÿÿþþ if != ÿ þÿÿ fnameÿ ÿ .ÿÿ þþ print#ÿþÿ file#ÿ ÿ ÿÿÿ horiz Fþþþÿ oldpar par mfrow c@@þ mar+ÿ@ÌÌÌÌÌÍ@ ÌÌÌÌÌÍ@ÌÌÌÌÌÍ?ù™™™™™šþ mgp+ÿ?ð?Ðþþþ on.exit)ÿ(ÿþþ for iÿ ÿÿÿû0ÿþÿÿþþ mtext side@ line?à ÿ outer Tþ!ÿ"ÿ ÿ þ dev.offþþþ sixplotÿ dev <- switch(device, ps=postscript, pdf=pdf, png=png, / jpeg=jpeg, bitmap=bitmap)  if(device!=""){ 0 fname <- paste(nam,".", ext, sep="")  print(fname) ? dev(file=fname,width=width, height=height, horiz=F) } K oldpar <- par(mfrow=c(3,2), mar=c(2.6,3.6,2.6,1.6),mgp=c(1,0.25,0))  on.exit(par(oldpar)) 4 for(i in images)FUN(data[,i], layout=layout) , mtext(side=3,line=0.5, nam, outer=T)  if(device!="")dev.off()  }þýÿÿÿ Rþÿÿ?ð@þÿÿÿ printerþ ÿ ÿ$ ÿ  ÿþ ÿ@ÿ@&þÿÿ ÿÿÿÿþþþÿ ÿÿÿ ÿ@þÿ ÿ@þÿ :þþÿÿÿ ÿþþÿÿÿ ÿÿ psÿ pdfÿ pngÿ jpgÿ bmpþþÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿþþ!ÿ"ÿ ÿ þÿÿ#ÿÿ ÿ .ÿÿ þþ$ÿ#ÿþÿ%ÿ#ÿ ÿ ÿÿÿ&ÿ'ÿþþþÿ(ÿ)ÿ*ÿ+ÿ@@þ,ÿ+ÿ@ÌÌÌÌÌÍ@ ÌÌÌÌÌÍ@ÌÌÌÌÌÍ?ù™™™™™šþ-ÿ+ÿ?ð?Ðþþþ.ÿ)ÿ(ÿþþ/ÿ0ÿÿ ÿÿÿû0ÿþÿÿþþ1ÿ2ÿ@3ÿ?à ÿ4ÿ5ÿþ!ÿ"ÿ ÿ þ6ÿþþþþ