if (FALSE) {
# The following code generated 'sparrowDf'
data(sparrowDetectionData)
data(sparrowSiteData)
sparrowDf <- RdistDf(transectDf = sparrowSiteData
, detectionDf = sparrowDetectionData
, by = "siteID"
, pointSurvey = FALSE
, .effortCol = "length"
)
}
data(sparrowDf)
tidyr::unnest(sparrowDf, detections) # only non-zero transects
Rdistance::unnest(sparrowDf) # with zero transects at the bottom
summary(sparrowDf,
formula = dist ~ groupsize(groupsize)
)
Run the code above in your browser using DataLab