[[Rcpp::export]]
| 188 | |
| 189 | // [[Rcpp::export]] |
| 190 | List runit_ppois( NumericVector xx){ |
| 191 | return List::create( |
| 192 | _["lowerNoLog"] = ppois( xx, 0.5 ), |
| 193 | _["lowerLog"] = ppois( xx, 0.5, true, true ), |
| 194 | _["upperNoLog"] = ppois( xx, 0.5, false ), |
| 195 | _["upperLog"] = ppois( xx, 0.5, false, true ) |
| 196 | ); |
| 197 | } |
| 198 | |
| 199 | // [[Rcpp::export]] |
| 200 | List runit_pt(NumericVector xx){ |