[[Rcpp::export]]
| 517 | |
| 518 | // [[Rcpp::export]] |
| 519 | NumericVector runit_ppois( double x, double a ){ |
| 520 | return NumericVector::create(R::ppois(x, a, 1, 0), R::ppois(log(x), a, 1, 1), |
| 521 | R::ppois(x, a, 0, 0), R::ppois(log(x), a, 0, 1)); |
| 522 | } |
| 523 | |
| 524 | // [[Rcpp::export]] |
| 525 | NumericVector runit_qpois( double x, double a ){ |