# NOT RUN {
# load images
fl <- system.file('extdata', 'Image0001_.jpg', package = 'colocr')
img <- image_load(fl)
# choose roi and test colocalization
roi_select(img, threshold = 90) %>%
roi_test()
# }
Run the code above in your browser using DataLab