[[Rcpp::export]]
| 140 | |
| 141 | // [[Rcpp::export]] |
| 142 | NumericVector runit_qbeta( double x, double a, double b ){ |
| 143 | return NumericVector::create(R::qbeta(x, a, b, 1, 0), R::qbeta(log(x), a, b, 1, 1), |
| 144 | R::qbeta(x, a, b, 0, 0), R::qbeta(log(x), a, b, 0, 1)); |
| 145 | } |
| 146 | |
| 147 | // [[Rcpp::export]] |
| 148 | NumericVector runit_rbeta(double a, double b) { |