### Use of the Bolstad R library

# Example 1: Election polling

library(Bolstad)

help(binobp)  # with beta prior

n = 1000  # draw 1000 times

x = 621   # 621 yes votes

# The function binodp with a continuous prior.

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

binobp(x,n, a=225, b=185)   # prior with 5th percentile .51 and 95th percentile .59