## ----raster-20a, fig=TRUE , echo=TRUE----------------------------------------- library(terra) b <- rast(system.file("ex/logo.tif", package="terra")) nlyr(b) RGB(b) plot(b)