counts <- c(2, 5, 6, 2, 7)
test11 <- sprt(data = counts,
mu0 = 2,
mu1 = 4,
density_func = "negative binomial",
overdispersion = 4.6,
alpha = 0.1,
beta = 0.1)
show(test11) # returns "accept H1" after 5 sampling bouts processed.
## End (Not run)
Run the code above in your browser using DataLab