# Load example sparrow data (line transect survey type)
data(sparrowDf)
# Fit half-normal detection function
dfunc <- sparrowDf |> dfuncEstim(formula=dist~groupsize(groupsize))
# Estimate abundance given a detection function
fit <- abundEstim(object = dfunc
, area = units::set_units(4105, "km^2")
, ci = NULL)
print(fit)
summary(fit)
if (FALSE) {
# Bootstrap confidence intervals (500 iterations)
# Requires ~4 min
fit <- abundEstim(object = dfunc
, area = units::set_units(4105, "km^2")
, ci = 0.95
, plot.bs = TRUE
, showProgress = TRUE)
print(fit)
summary(fit)
}
Run the code above in your browser using DataLab