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