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)
# plot posterior
plot_posterior(posterior, type = 'l', lwd = 3, col = 'blue3')
Run the code above in your browser using DataLab