powered by
rgb2grey(img, coefs=c(0.30, 0.59, 0.11))
## Not run: # x <- read.jpeg(system.file("extdata", "Rlogo.jpg", package="ripa")) # plot(rgb2grey(x)) # ## End(Not run)
Run the code above in your browser using DataLab