evidence. 4-successes 20-trials

p.prior=rbeta(N,a,b)

w=dbinom(s,n,p.prior)

p.posterior=p.prior[index]

m=round(N/40)

**6. Example**

N=200000

a=1 b=6

s=4 n=20
