[[Rcpp::export]]
| 490 | |
| 491 | // [[Rcpp::export]] |
| 492 | NumericVector runit_qnbinom( double x, double a, double b ){ |
| 493 | return NumericVector::create(R::qnbinom(x, a, b, 1, 0), R::qnbinom(log(x), a, b, 1, 1), |
| 494 | R::qnbinom(x, a, b, 0, 0), R::qnbinom(log(x), a, b, 0, 1)); |
| 495 | } |
| 496 | |
| 497 | // [[Rcpp::export]] |
| 498 | NumericVector runit_rnbinom(double a, double b) { |