source("C:/Program Files/R/R-3.0.2/RLabs/BernBeta.R", echo = TRUE)

## 
## > BernBeta = function(priorShape, dataVec, credMass = 0.95, 
## +     saveGr = FALSE) {
## +     if (length(priorShape) != 2) {
## +         stop("priorShape m ..." ... [TRUNCATED]

postShape = BernBeta(priorShape = c(1, 1), dataVec = c(1, 0, 0, 1, 1))