[[Rcpp::export]]
| 88 | |
| 89 | // [[Rcpp::export]] |
| 90 | List runit_pbeta( NumericVector xx, double aa, double bb ){ |
| 91 | return List::create( |
| 92 | _["lowerNoLog"] = pbeta( xx, aa, bb), |
| 93 | _["lowerLog"] = pbeta( xx, aa, bb, true, true), |
| 94 | _["upperNoLog"] = pbeta( xx, aa, bb, false), |
| 95 | _["upperLog"] = pbeta( xx, aa, bb, false, true) |
| 96 | ); |
| 97 | } |
| 98 | |
| 99 | // [[Rcpp::export]] |
| 100 | List runit_pbinom( NumericVector xx, int n, double p){ |