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)
getPosteriorParam(K.dup)
Run the code above in your browser using DataLab