# Load example sparrow data (line transect survey type)
data(sparrowSiteData)
data(sparrowDetectionData)
# Fit half-normal detection function
sparrowDf <- RdistDf(sparrowSiteData, sparrowDetectionData)
dfunc <- sparrowDf |> dfuncEstim(formula=dist~1)
dfunc
Run the code above in your browser using DataLab