# NOT RUN {
ModeDeltaMultinomialNPP(CompStat = list(n0 = c(25,25,25,25), n1 = c(25,25,25,25)),
prior = list(theta.dir.alpha = c(0.5, 0.5, 0.5, 0.5),
delta.alpha = 1, delta.beta = 1))
ModeDeltaMultinomialNPP(CompStat = list(n0 = c(22,25,28,25), n1 = c(25,22,25,28)),
prior = list(theta.dir.alpha = c(0.5, 0.5, 0.5, 0.5),
delta.alpha = 1, delta.beta = 1))
ModeDeltaMultinomialNPP(CompStat = list(n0 = c(15,25,30,30), n1 = c(25,25,25,25)),
prior = list(theta.dir.alpha = c(0.5, 0.5, 0.5, 0.5),
delta.alpha = 1, delta.beta = 1))
# }
Run the code above in your browser using DataCamp Workspace