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