## Not run: ------------------------------------
# temptraps <- make.grid()
# detpar <- list(g0 = 0.2, sigma = 25)
# suggest.buffer(temptraps, "halfnormal", detpar, 5)
#
# RB <- bias.D(50:150, temptraps, "halfnormal", detpar, 5)
# plot(RB)
#
# detpar <- list(g0 = 0.2, sigma = 25, z=5)
# RB <- bias.D(50:150, temptraps, "hazard rate", detpar, 5)
# lines(RB)
#
# ## compare to esa plot
# esa.plot (temptraps, max.buffer = 150, spacing = 4, detectfn = 0,
# detectpar = detpar, noccasions = 5, as.density = F)
## ---------------------------------------------
## compare detection histories and fitted model as input
suggest.buffer(captdata)
suggest.buffer(secrdemo.0)
Run the code above in your browser using DataLab