library(terra)
dem= rast(paste(system.file("extdata", package = "SurfRough"), "/trento1.tif",sep=""))
# std of slope in degrees
slope=terrain(dem, v="slope")
w=KernelCircular(3)
w
stdSlope=stdST(slope,w=w)
plot(stdSlope)
Run the code above in your browser using DataLab