[[Rcpp::export]]
| 484 | |
| 485 | // [[Rcpp::export]] |
| 486 | NumericVector runit_pnbinom( double x, double a, double b ){ |
| 487 | return NumericVector::create(R::pnbinom(x, a, b, 1, 0), R::pnbinom(log(x), a, b, 1, 1), |
| 488 | R::pnbinom(x, a, b, 0, 0), R::pnbinom(log(x), a, b, 0, 1)); |
| 489 | } |
| 490 | |
| 491 | // [[Rcpp::export]] |
| 492 | NumericVector runit_qnbinom( double x, double a, double b ){ |