[[Rcpp::export]]
| 128 | |
| 129 | // [[Rcpp::export]] |
| 130 | List runit_pgamma( NumericVector xx ){ |
| 131 | return List::create( |
| 132 | _["lowerNoLog"] = pgamma( xx, 2.0, 1.0 ), |
| 133 | _["lowerLog"] = pgamma( xx, 2.0, 1.0, true, true ), |
| 134 | _["upperNoLog"] = pgamma( xx, 2.0, 1.0, false ), |
| 135 | _["upperLog"] = pgamma( xx, 2.0, 1.0, false, true ) |
| 136 | ); |
| 137 | } |
| 138 | |
| 139 | // [[Rcpp::export]] |
| 140 | List runit_pnf( NumericVector xx ){ |