if (FALSE) {
# Initialize a saga object
saga <- saga_gis()
# Generate a random DEM
dem <- saga$grid_calculus$random_terrain(radius = 15, iterations = 500)
# Return tiled version of DEM
tiles <- tile_geoprocessor(x = saga, grid = dem, nx = 20, ny = 20)
}
Run the code above in your browser using DataLab