[[Rcpp::export]]
| 430 | |
| 431 | // [[Rcpp::export]] |
| 432 | NumericVector runit_rgeom(double a) { |
| 433 | NumericVector o(5); |
| 434 | for (int i = 0; i < o.size(); i++) { |
| 435 | o[i] = R::rgeom(a); |
| 436 | } |
| 437 | return o; |
| 438 | } |
| 439 | |
| 440 | // [[Rcpp::export]] |
| 441 | NumericVector runit_rgeom_sugar(double a) { |