# import raster image
data(normforest)
normforest <- terra::unwrap(normforest)
# find the rotated Bearing Area curve.
ba_func <- bearing_area(normforest)
# rotate the values and re-plot
xval <- environment(ba_func)$y
yval <- (1 - environment(ba_func)$x)
plot(yval ~ xval)
Run the code above in your browser using DataLab