[[Rcpp::export]]
| 391 | |
| 392 | // [[Rcpp::export]] |
| 393 | NumericVector runit_qexp( double x, double a ){ |
| 394 | return NumericVector::create(R::qexp(x, a, 1, 0), R::qexp(log(x), a, 1, 1), |
| 395 | R::qexp(x, a, 0, 0), R::qexp(log(x), a, 0, 1)); |
| 396 | } |
| 397 | |
| 398 | // [[Rcpp::export]] |
| 399 | NumericVector runit_rexp(double a) { |