raster code snippets in r