r <- raster::raster(system.file('external/maungawhau.grd', package = 'gdistance'))
slope_cs <- create_slope_cs(r, cost_function = 'tobler', neighbours = 16, max_slope = NULL)
slope_cs_iso <- force_isotropy(slope_cs)
Run the code above in your browser using DataLab