Mejoro ejemplos en raster.R