#\examples<>

#<ss.cons.binom.avg.hpdlimits>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.hpdlimits(accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.avg.hpdlimits.mymarg>
accepted.pdiff <- 0.005
clinical.prior     <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.hpdlimits.mymarg(accepted.pdiff, prior1, prior2, clinical.prior)
z$n

#<ss.cons.binom.avg.hpdlimits.bothmarg>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.hpdlimits.bothmarg(accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.prob.hpdlimits>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.hpdlimits(accepted.pdiff, prior1, prior2, prob=0.9)
z$n

#<ss.cons.binom.prob.hpdlimits.mymarg>
accepted.pdiff <- 0.005
clinical.prior <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.hpdlimits.mymarg(accepted.pdiff, prior1, prior2, clinical.prior, prob=0.9)
z$n

#<ss.cons.binom.prob.hpdlimits.bothmarg>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.hpdlimits.bothmarg(accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.worst.hpdlimits>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.worst.hpdlimits(accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.avg.cdf>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.cdf(cdf.points, accepted.cdf.diff, prior1, prior2)
z$n

#<ss.cons.binom.avg.cdf.mymarg>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
clinical.prior <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.cdf.mymarg(cdf.points, accepted.cdf.diff, prior1, prior2, clinical.prior)
z$n

#<ss.cons.binom.avg.cdf.bothmarg>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.cdf.bothmarg(cdf.points, accepted.cdf.diff, prior1, prior2)
z$n

#<ss.cons.binom.prob.cdf>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.cdf(cdf.points, accepted.cdf.diff, prior1, prior2, prob=0.8)
z$n

#<ss.cons.binom.prob.cdf.mymarg>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
clinical.prior <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.cdf.mymarg(cdf.points, accepted.cdf.diff, prior1, prior2, clinical.prior, prob=0.8)
z$n

#<ss.cons.binom.prob.cdf.bothmarg>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.cdf.bothmarg(cdf.points, accepted.cdf.diff, prior1, prior2, prob=0.8)
z$n

#<ss.cons.binom.worst.cdf>
accepted.cdf.diff <- 0.005
cdf.points <- c(0.75, 0.8)
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.worst.cdf(cdf.points, accepted.cdf.diff, prior1, prior2)
z$n

#<ss.cons.binom.avg.q>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.q(quantiles, accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.avg.q.mymarg>
accepted.pdiff <- 0.005
clinical.prior <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.q.mymarg(quantiles, accepted.pdiff, prior1, prior2, clinical.prior)
z$n

#<ss.cons.binom.avg.q.bothmarg>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.avg.q.bothmarg(quantiles, accepted.pdiff, prior1, prior2)
z$n

#<ss.cons.binom.prob.q>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.q(quantiles, accepted.pdiff, prior1, prior2, prob=0.9)
z$n

#<ss.cons.binom.prob.q.mymarg>
accepted.pdiff <- 0.005
clinical.prior     <- list(alpha= 36.59608, beta= 5.648309)   # 95% CI:  .75 - .95
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.q.mymarg(quantiles, accepted.pdiff, prior1, prior2, clinical.prior, prob=0.9)
z$n

#<ss.cons.binom.prob.q.bothmarg>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.prob.q.bothmarg(quantiles, accepted.pdiff, prior1, prior2, prob=0.9)
z$n

#<ss.cons.binom.worst.q>
accepted.pdiff <- 0.005
prior1 <- list(alpha=116.064,   beta=12.04506)    # 95% CI:  .85 - .95
quantiles <- c(0.25, .75)
prior2 <- list(alpha=194.0375,  beta=47.79375)    # 95% CI:  .75 - .85
z <- ss.cons.binom.worst.q(quantiles, accepted.pdiff, prior1, prior2)
z$n