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