Subset a raster in r