[[Rcpp::export]]
| 198 | |
| 199 | // [[Rcpp::export]] |
| 200 | List runit_pt(NumericVector xx){ |
| 201 | return List::create(_["lowerNoLog"] = pt( xx, 5 /*true, false*/), |
| 202 | _["lowerLog"] = pt( xx, 5, true, true), |
| 203 | _["upperNoLog"] = pt( xx, 5, false /*,false*/), |
| 204 | _["upperLog"] = pt( xx, 5, false, true) ); |
| 205 | } |
| 206 | |
| 207 | // [[Rcpp::export]] |
| 208 | List runit_pnt(NumericVector xx){ |