inst/examples/colorfulnessExample.R

x <- loadPhoto()
x <- normalize(x, 0, 255)
z <- makeZimage(ncol(x), lensPolyCoef(c(0.6427, 0.0346, -0.024491)))
m <- doMask(z, alim = asAngle(c(0, 10)), zlim = asAngle(c(30, 40)))
m <- doMask(z)
colorfulness(x, m, TRUE)
r <- colorfulness(x, m, TRUE, TRUE)
plotRGB(r)
GastonMauroDiaz/caiman documentation built on Jan. 22, 2022, 4:43 a.m.