library(raster)
data(elev)
m.crv <- curvature(elev, s=5, type="mcnab")
b.crv <- curvature(elev, s=5, type="bolstad")
par(mfrow=c(1,2))
plot(m.crv, main="McNab curvature")
plot(b.crv, main="Bolstad curvature")
Run the code above in your browser using DataLab