[[Rcpp::export]]
| 138 | |
| 139 | // [[Rcpp::export]] |
| 140 | List runit_pnf( NumericVector xx ){ |
| 141 | return List::create( |
| 142 | _["lowerNoLog"] = pnf( xx, 6.0, 8.0, 2.5, true ), |
| 143 | _["lowerLog"] = pnf( xx, 6.0, 8.0, 2.5, true, true ), |
| 144 | _["upperNoLog"] = pnf( xx, 6.0, 8.0, 2.5, false ), |
| 145 | _["upperLog"] = pnf( xx, 6.0, 8.0, 2.5, false, true ) |
| 146 | ); |
| 147 | } |
| 148 | |
| 149 | // [[Rcpp::export]] |
| 150 | List runit_pf( NumericVector xx ){ |