| svn_grid$results = NA |
| for (i in seq_len(nrow(svn_grid))){ |
| small_raster = crop(svn_dem, svn_grid[i, ]) |
| if(!all(is.na(getValues(small_raster)))){ |
| svn_grid$results[i] = get_boltzmann(small_raster) |
| } |
| } |
| svn_grid$results = NA |
| for (i in seq_len(nrow(svn_grid))){ |
| small_raster = crop(svn_dem, svn_grid[i, ]) |
| if(!all(is.na(getValues(small_raster)))){ |
| svn_grid$results[i] = get_boltzmann(small_raster) |
| } |
| } |