[[Rcpp::export]]
| 206 | |
| 207 | // [[Rcpp::export]] |
| 208 | List runit_pnt(NumericVector xx){ |
| 209 | return List::create(_["lowerNoLog"] = pnt( xx, 5, 7 /*true, false*/), |
| 210 | _["lowerLog"] = pnt( xx, 5, 7, true, true), |
| 211 | _["upperNoLog"] = pnt( xx, 5, 7, false /*,false*/), |
| 212 | _["upperLog"] = pnt( xx, 5, 7, false, true) ); |
| 213 | } |
| 214 | |
| 215 | // [[Rcpp::export]] |
| 216 | List runit_qbinom_prob( NumericVector xx, int n, double p){ |