# Counts collected in a single sampling bout
counts <- c(0, 0, 0)
# Calculate posterior probability from a naive 0.5 prior for H:mu=0
# (a species being absent in an area) with a poisson kernel.
stbp_posterior_simple(data = counts,
density_func = "poisson",
prior = 0.5,
upper_bnd = Inf) # returns 0.75
## End (Not run)
Run the code above in your browser using DataLab