# Load the example dataset for sparrow detections from package
data(sparrow.detections)
# Compute perpendicular, off-transect distances from the observer's sight distance and angle
sparrow.detections$dist <- perp.dists(obs.dist=sparrow.detections$sightdist,
obs.angle=sparrow.detections$sightangle)
# Fit detection function object
dfunc <- F.dfunc.estim(sparrow.detections, w.hi=150)
# Compute effective strip width (ESW)
ESW(dfunc)
Run the code above in your browser using DataLab