This is a package for computing the density recovery profile (Rodieck, 1992).
The easiest way to install should be via the devtools package:
devtools::install_github('sje30/sjedrp')
require(sjedrp)
example(sjedrp)
A vignette is under development; please see:
vignette("sjedrp_intro")
http://wdobbie.github.io/WebDRP/ is an online tool for calculating DRP if you don't have access to R.