[[Rcpp::export]]
| 413 | |
| 414 | // [[Rcpp::export]] |
| 415 | NumericVector runit_dgeom( double x, double a ){ |
| 416 | return NumericVector::create(R::dgeom(x, a, 0), R::dgeom(x, a, 1)); |
| 417 | } |
| 418 | |
| 419 | // [[Rcpp::export]] |
| 420 | NumericVector runit_pgeom( double x, double a ){ |