# NOT RUN {
setwd(tempdir())
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
WriteImageTxt(img, 'temp')
img <- ReadImageTxt('temp_01.csv')
file.remove(list.files()) # cleanup
# }
Run the code above in your browser using DataLab