[[Rcpp::export]]
| 223 | |
| 224 | // [[Rcpp::export]] |
| 225 | List integer_erase_range_2( IntegerVector x, IntegerVector y ){ |
| 226 | IntegerVector::iterator it = x.begin()+1 ; |
| 227 | while( it != x.end() ){ |
| 228 | it = x.erase(it) ; |
| 229 | } |
| 230 | it = y.begin() + 1 ; |
| 231 | while( it != y.end() ){ |
| 232 | it = y.erase(it) ; |
| 233 | } |
| 234 | return List::create( x, y ) ; |
| 235 | } |
| 236 | |
| 237 | // [[Rcpp::export]] |
| 238 | List List_erase_range_2( List x, List y ){ |