powered by
srr(x, s = 5, ...)
library(raster) data(elev) r.srr <- srr(elev, s=5) plot(r.srr, main="Surface Relief Ratio")
Run the code above in your browser using DataLab