## Not run:
# x <- read.jpeg(system.file("extdata", "Rlogo.jpg", package="ripa"))
# cat("Image Type", imageType(x))
#
# x.grey <- rgb2grey(x)
# cat("Image Type", imageType(x.grey))
# ## End(Not run)
Run the code above in your browser using DataLab