## Not run: ------------------------------------
#
# library(raster)
# data(elev)
# hsp27 <- hsp(elev, 3, 27, 4, normalize = TRUE)
# plot(hsp27)
#
## ---------------------------------------------
Run the code above in your browser using DataLab