pbetaRv1 function

Pure R Implementation of Old pbeta()