# NOT RUN {
# Load the example dataset of sparrow detections from package
data(sparrowDetectionData)
# Fit detection function to perpendicular, off-transect distances
dfunc <- dfuncEstim(dist~1,
detectionData=sparrowDetectionData,
w.hi=150)
# Compute fit statistics
AIC(dfunc) # AICc
AIC(dfunc, criterion="AIC") # AIC
AIC(dfunc, criterion="BIC") # BIC
# }
Run the code above in your browser using DataLab