# \donttest{
dem <- dem_crop(horseshoe, x0 = -469, y0 = 1267, L = 2, plot = TRUE)
fd(dem, method = "hvar", lvec = c(0.125, 0.25, 0.5, 1, 2))
fd(dem, method = "area", diagnose = TRUE)
fd(dem, method = "sd")
fd(mcap2, method = "cubes", plot = TRUE)
fd(mcap2, method = "area", diagnose = TRUE)
# }
Run the code above in your browser using DataLab