# Load example sparrow data (line transect survey type)
data(sparrowDetectionData)
# Fit half-normal detection function
dfunc <- dfuncEstim(formula=dist~1,
detectionData=sparrowDetectionData)
dfunc
Run the code above in your browser using DataLab