[[Rcpp::export]]
| 616 | |
| 617 | // [[Rcpp::export]] |
| 618 | NumericVector runit_pnbeta( double x, double a, double b, double c ){ |
| 619 | return NumericVector::create(R::pnbeta(x, a, b, c, 1, 0), R::pnbeta(log(x), a, b, c, 1, 1), |
| 620 | R::pnbeta(x, a, b, c, 0, 0), R::pnbeta(log(x), a, b, c, 0, 1)); |
| 621 | } |
| 622 | |
| 623 | // [[Rcpp::export]] |
| 624 | NumericVector runit_qnbeta( double x, double a, double b, double c ){ |