if (FALSE) {
r <- read_caim()
z <- zenith_image(ncol(r), lens())
a <- azimuth_image(z)
m <- mask_hs(z, 20, 70) & mask_hs(a, 90, 180)
masked_caim <- masking(normalize(r), m)
plotRGB(masked_caim * 255)
masked_bin <- masking(apply_thr(r$Blue, 125), m)
plotRGB(masked_bin * 255)
}
Run the code above in your browser using DataLab