# Load example thrasher data (point transect survey type)
data(thrasherDetectionData)
# Fit half-normal detection function
dfunc <- dfuncEstim(formula=dist~1
, detectionData=thrasherDetectionData
, likelihood="halfnorm"
, w.hi=units::set_units(175, "m")
, pointSurvey=TRUE)
# Compute effective detection radius (EDR)
EDR(dfunc)
# EDR only applies to point transect surveys
# ESW is the line transect equivalent
# The effectiveDistance function tests whether the dfunc was
# fit to line or point data, and returns either ESW or EDR accordingly
effectiveDistance(dfunc)
Run the code above in your browser using DataLab