# import raster image
data(normforest)
normforest <- terra::unwrap(normforest)
# find the slopes along the bearing area curve
ba <- bearing_area(normforest)
x <- seq(0, 1, length.out = 100000)
slopes <- slopecalc(x = x, h = 0.01, f = ba)
Run the code above in your browser using DataLab