RDX2 X  sixplot 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þþþþ