################################################### ### code chunk number 16: tileimage ################################################### par(mfrow=c(1,2)) TileImage(int=int,cycle=1,tile=readInfo(int)$tile[1],ncell=5,channel='A') TileImage(int=int,cycle=1,tile=readInfo(int)$tile[1],ncell=5,channel='C' )