Function that makes a draw from a beta distribution

Create a function that makes draws from a beta distribution. Function calls rbeta(1,alpha,beta)

make.beta.draw(alpha, beta)

Arguments

alpha

The first shape parameter of the beta distribution

beta

The second shape parameter of the beta distribution

Value

A function that makes draws from a beta distribution.

Examples

set.seed(17)
inher_func<-make.beta.draw(10,10)
net<-sim.bdh.age(1,1,5,2,1,c(1/3,1/3,1/3),hyb.inher.fxn = inher_func,
complete=TRUE)[[1]]