counts <- new_counts(counts = c(20,30), fractions = c(0.075, 0.10))
# default parameters ("dup" algorithm, sampling without replacement, default prior support)
posterior <- compute_posterior(counts)
# custom prior support ("dup" algorithm)
posterior <- compute_posterior(counts, n_start = 0, n_end = 1e3)
# gamma prior ("gamma" algorithm)
posterior <- compute_posterior(counts, alg = "gamma")
# sampling with replacement
posterior <- compute_posterior(counts, replacement = TRUE)
Run the code above in your browser using DataLab