# NOT RUN {
setwd(tempdir())
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
WriteIntImage(img, '50.tif')
WriteIntImage(img, '50again.tif')
BrightnessTxtFolder(tau = NA, mst = "Huang", mcc = 2)
BrightnessPlotFolder()
list.files()
file.remove(list.files()) # cleanup
# }
Run the code above in your browser using DataLab