# Test POINT transects
# Load example sparrow data (line transect survey type)
# data(thrasherDetectionData)
# The set of parameters to test
testInputs <- expand.grid(
likelihood = c( "halfnorm" ),
pointSurvey = TRUE,
w.lo = c(0, 20),
w.hi = c(NA, 200),
expansions = 0,
series = c('simple'),
x.scl = c(0, 60, "max"),
g.x.scl = c(1, .85),
observer = "both",
# observer = c("1","2","both"),
outputUnits = c(NULL, "m", "ft"),
stringsAsFactors = FALSE
)
abundParams <- expand.grid(
area = units::set_units(c(1, 100), "m^2"),
ci = c(NA,.95),
R = 20,
bySite = FALSE,
plot.bs = TRUE,
showProgress = FALSE
)
res <- test_dfuncEstim( detectParams = testInputs,
abundParams = abundParams,
detectDf = thrasherDetectionData,
abundDf = thrasherSiteData,
formula = dist ~ 1 )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.