[[Rcpp::export]]
| 513 | |
| 514 | // [[Rcpp::export]] |
| 515 | List runit_head( NumericVector xx ){ |
| 516 | return List::create( |
| 517 | _["pos"] = head( xx, 5 ), |
| 518 | _["neg"] = head( xx, -5 ) |
| 519 | ) ; |
| 520 | } |
| 521 | |
| 522 | // [[Rcpp::export]] |
| 523 | List runit_tail( NumericVector xx ){ |