[[Rcpp::export]]
| 106 | |
| 107 | // [[Rcpp::export]] |
| 108 | NumericVector runit_qgamma( double x, double a, double b ){ |
| 109 | return NumericVector::create(R::qgamma(x, a, b, 1, 0), R::qgamma(log(x), a, b, 1, 1), |
| 110 | R::qgamma(x, a, b, 0, 0), R::qgamma(log(x), a, b, 0, 1)); |
| 111 | } |
| 112 | |
| 113 | // [[Rcpp::export]] |
| 114 | NumericVector runit_rgamma(double a, double b) { |