powered by
Computes the log posterior density of mean and precision for a Binomial/beta exchangeable model
betabinexch0(theta,data)
vector of parameter values of eta and K
a matrix with columns y (counts) and n (sample sizes)
value of the log posterior
# NOT RUN { n=c(20,20,20,20,20) y=c(1,4,3,6,10) data=cbind(y,n) theta=c(.1,10) betabinexch0(theta,data) # }
Run the code above in your browser using DataLab