# Load the example dataset for sparrow detections from package
data(sparrow.detections)
# Compute perpendicular, off-transect distances from the observer's sight distance and angle
sparrow.detections$dist <- perp.dists(obs.dist=sparrow.detections$sightdist,
obs.angle=sparrow.detections$sightangle)
# Fit detection function object
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