[[Rcpp::export]]
| 325 | |
| 326 | // [[Rcpp::export]] |
| 327 | NumericVector runit_qbinom( double x, double a, double b ){ |
| 328 | return NumericVector::create(R::qbinom(x, a, b, 1, 0), R::qbinom(log(x), a, b, 1, 1), |
| 329 | R::qbinom(x, a, b, 0, 0), R::qbinom(log(x), a, b, 0, 1)); |
| 330 | } |
| 331 | |
| 332 | // [[Rcpp::export]] |
| 333 | NumericVector runit_rbinom(double a, double b) { |