[[Rcpp::export]]
| 523 | |
| 524 | // [[Rcpp::export]] |
| 525 | NumericVector runit_qpois( double x, double a ){ |
| 526 | return NumericVector::create(R::qpois(x, a, 1, 0), R::qpois(log(x), a, 1, 1), |
| 527 | R::qpois(x, a, 0, 0), R::qpois(log(x), a, 0, 1)); |
| 528 | } |
| 529 | |
| 530 | // [[Rcpp::export]] |
| 531 | NumericVector runit_rpois(double a) { |