# NOT RUN {
img <- read_tif(system.file('extdata', 'bleached.tif', package = 'detrendr'),
n_ch = 1)
setwd(tempdir())
write_tif(img, 'bleached.tif')
suppressWarnings(file.remove(list.files())) # cleanup
# }
Run the code above in your browser using DataLab