| svn_grid_geom = st_as_sfc(st_bbox(svn_dem)) |
| svn_grid = st_make_grid(svn_grid_geom, cellsize =5760) |
| svn_grid = st_sf(id = seq_along(svn_grid), |
| geom = svn_grid) |
| svn_grid_geom = st_as_sfc(st_bbox(svn_dem)) |
| svn_grid = st_make_grid(svn_grid_geom, cellsize =5760) |
| svn_grid = st_sf(id = seq_along(svn_grid), |
| geom = svn_grid) |