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
suggest.buffer(ovenCH)
suggest.buffer(ovenbird.model.1)
Run the code above in your browser using DataLab