## ----raster-20a, fig=TRUE , echo=TRUE----------------------------------------- library(raster) b <- brick(system.file("external/rlogo.grd", package="raster")) plot(b) ## ----raster-20b, fig=TRUE , echo=TRUE----------------------------------------- plotRGB(b, r=1, g=2, b=3)