# Load example thrasher data (point transect survey type)
data(thrasherDf)
# Fit half-normal detection function
dfunc <- thrasherDf |> dfuncEstim(formula=dist~bare)
# Compute effective detection radius (EDR)
EDR(dfunc) # vector length 192
effectiveDistance(dfunc) # same
EDR(dfunc, newdata = data.frame(bare=30)) # vector length 1
Run the code above in your browser using DataLab