# NOT RUN {
# Load the example dataset of sparrow detections from package
data(sparrow.detections)
# Fit detection function to perpendicular, off-transect distances
dfunc <- F.dfunc.estim(sparrow.detections, w.hi=150)
# Compute fit statistics
AIC(dfunc) # AICc
AIC(dfunc, k=2, n=Inf) # AIC
AIC(dfunc, k=log(length(dfunc$dist)), n=Inf) # BIC
# }
Run the code above in your browser using DataLab