[[Rcpp::export]]
| 674 | |
| 675 | // [[Rcpp::export]] |
| 676 | List CharacterVectorEqualityOperator( CharacterVector x, CharacterVector y){ |
| 677 | int n = x.size() ; |
| 678 | LogicalVector eq(n), neq(n); |
| 679 | for( int i=0; i<n; i++){ |
| 680 | eq[i] = x[i] == y[i] ; |
| 681 | neq[i] = x[i] != y[i] ; |
| 682 | } |
| 683 | return List::create(eq, neq) ; |
| 684 | } |
| 685 | |
| 686 | // [[Rcpp::export]] |
| 687 | List List_rep_ctor(IntegerVector x){ |