powered by
splitChannels(image)
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