powered by
Averages conductance values from-to adjacent cells
force_isotropy(x)
conductanceMatrix
r <- terra::rast(system.file("extdata/SICILY_1000m.tif", package="leastcostpath"))
slope_cs_aniso <- create_slope_cs(x = r, cost_function = "tobler", neighbours = 4)
slope_cs_iso <- force_isotropy(x = slope_cs_aniso)