### Use of the Bolstad R library

# Suppose we draw one ball from an urn containing 5 balls, with
# xi = 0,1,2,3,4,5 possible R balls.

library(Bolstad)

help(binobp)  # with beta prior

n = 1  # draw one ball

x = 1  # one ball drawn and it is a R

# The function binodp with one draw with 6 values of the parameter.

binobp(x,n, a=1, b=1)   # uniform prior on theta

n = 2  # draw one ball

x = 1  # one ball drawn and it is a R

# The function binodp with one draw with 6 values of the parameter.

binobp(x,n, a=1, b=1)   # uniform prior on theta

# Now draw twice and observe one R

binobp(x,n, a=2, b=2)   # prior centered at 0.5