# NOT RUN {
r <- floor( seq(1:(64*64)) / (64*64) * 255 )
dim(r) <- c(64,64)
r <- as.antsImage(r)
g <- r*0
b <- r*0
rgbImage = mergeChannels( list(r,g,b) )
imgList = splitChannels( rgbImage )
# }
Run the code above in your browser using DataLab