tests/testthat/test_B_PointsNocovsNoexpansionsNegexp.R

In tmcd82070/Rdistance: Distance-Sampling Analyses for Density and Abundance Estimation

# Test POINT transects

# Load example sparrow data (line transect survey type)
# data(thrasherDetectionData)

# The set of parameters to test
testInputs <- expand.grid(
  likelihood = c( "negexp" ),
  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 )