K <- newCounts( counts = c(20,30), fractions = c(0.075, 0.10))
#using default parameters (DUP, sampling without replacement and default prior support)
K.dup <- computePosterior(K)
plotPosterior(K.dup, type = 'l', lwd = 3, col = 'blue3', low = 0.025, up = 0.975)
Run the code above in your browser using DataLab