[[Rcpp::export]]
| 496 | |
| 497 | // [[Rcpp::export]] |
| 498 | NumericVector runit_rnbinom(double a, double b) { |
| 499 | NumericVector o(5); |
| 500 | for(int i = 0; i < o.size(); i++) { |
| 501 | o[i] = R::rnbinom(a, b); |
| 502 | } |
| 503 | return o; |
| 504 | } |
| 505 | |
| 506 | // [[Rcpp::export]] |
| 507 | NumericVector runit_rnbinom_sugar(double a, double b) { |