[[Rcpp::export]]
| 380 | |
| 381 | // [[Rcpp::export]] |
| 382 | NumericVector runit_dexp( double x, double a ){ |
| 383 | return NumericVector::create(R::dexp(x, a, 0), R::dexp(x, a, 1)); |
| 384 | } |
| 385 | |
| 386 | // [[Rcpp::export]] |
| 387 | NumericVector runit_pexp( double x, double a ){ |