function par=beta_sel(r,rplus)
%
% BETA_SEL Selecting a beta prior using predictive statements.
%	PAR=BETA_SEL(R,RPLUS) returns parameters of a beta distribution, where
%	R is the probability of a future success and RPLUS is the probability
%	of a second future success conditional on a first success.

a=r*(1-rplus)/(rplus-r);
b=(1-r)*(1-rplus)/(rplus-r);
par=[a b];