# NOT RUN {
# Load the example datasets of sparrow detections and transects from package
data(sparrow.detections)
data(sparrow.transects)
# Fit detection function to perpendicular, off-transect distances
dfunc <- F.dfunc.estim(sparrow.detections, w.hi=150)
# Estimate abundance given a detection function
fit <- F.abund.estim(dfunc, detection.data=sparrow.detections, transect.data=sparrow.transects,
area=10000, R=10, ci=0.95, plot.bs=TRUE, by.id=FALSE)
# Print the output
print(fit)
# }
Run the code above in your browser using DataLab