[[Rcpp::export]]
| 104 | |
| 105 | // [[Rcpp::export]] |
| 106 | List runit_lang_binarycall(IntegerVector x1, IntegerVector x2 ){ |
| 107 | Language call( "seq", Named("from", 10 ), Named("to", 0 ) ) ; |
| 108 | List output( x1.size() ) ; |
| 109 | std::transform( |
| 110 | x1.begin(), x1.end(), x2.begin(), |
| 111 | output.begin(), |
| 112 | binary_call<int,int>(call) |
| 113 | ) ; |
| 114 | return output ; |
| 115 | } |
| 116 | |
| 117 | |
| 118 | // [[Rcpp::export]] |