###################################################
### 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' )