beta_est(rbeta(1000,shape1=2,shape2=1),unknown="shape2",shape1=2)#shape1 is known
beta_est(rbeta(1000,shape1=2,shape2=1),unknown="shape1",shape2=1)#shape2 is known
beta_est(rbeta(1000,shape1=2,shape2=1),unknown="both")#both will be estimated
Run the code above in your browser using DataLab