# NOT RUN {
# load image
fl <- system.file('extdata', 'Image0001_.jpg', package = 'colocr')
img <- image_load(fl)
# choose parameters
int <- roi_select(img, threshold = 90) %>%
.intensity_get()
# }
Run the code above in your browser using DataLab