# NOT RUN {
# Load example sparrow data (line transect survey type)
data(sparrowDetectionData)
# Fit half-normal detection function
dfunc <- dfuncEstim(formula=dist~1,
detectionData=sparrowDetectionData,
likelihood="halfnorm", w.hi=100, pointSurvey=FALSE)
# Print results
dfunc
print(dfunc, criterion="BIC")
# }
Run the code above in your browser using DataLab