Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
d <- getDarkness(img)
par(mfrow=c(2,1), mar = c(0.5, 1, 0.5, 1))
plotRGBArray(img)
plotRGBArray(d)
# }
Run the code above in your browser using DataLab