This function returns the red band of the imagedata.
imgRedBand(x)
x
grey imagedata
## Not run: x <- readJpeg(system.file("samples", "violet.jpg", package="biOps")) plot(imgRedBand(x)) ## End(Not run)