speed faster; class RBata > function rbeta > function rbeta_class (wrapper function)