if (FALSE) {
temptraps <- make.grid()
detpar <- list(g0 = 0.2, sigma = 25)
suggest.buffer(temptraps, "halfnormal", detpar, 5)
suggest.buffer(secrdemo.0)
suggest.buffer(ovenCH[[1]])
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
esaPlot (temptraps, max.buffer = 150, spacing = 4, detectfn = 0,
detectpar = detpar, noccasions = 5, type = "density")
## compare detection histories and fitted model as input
suggest.buffer(captdata)
suggest.buffer(secrdemo.0)
}
Run the code above in your browser using DataLab