# NOT RUN {
setwd(tempdir())
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
WriteIntImage(img[, , 1], '50_1.tif')
WriteIntImage(img[, , 2], '50_2.tif')
Stack2DTifs(c('50_1.tif', '50_2.tif'), '50_1_2')
file.remove(list.files())
# }
Run the code above in your browser using DataLab