[[Rcpp::export]]
| 521 | |
| 522 | // [[Rcpp::export]] |
| 523 | List runit_tail( NumericVector xx ){ |
| 524 | return List::create( |
| 525 | _["pos"] = tail( xx, 5 ), |
| 526 | _["neg"] = tail( xx, -5 ) |
| 527 | ) ; |
| 528 | } |
| 529 | |
| 530 | // [[Rcpp::export]] |
| 531 | List runit_diag( NumericVector xx, NumericMatrix mm ){ |