[[Rcpp::export]]
| 67 | |
| 68 | // [[Rcpp::export]] |
| 69 | std::vector<Rbyte> asStdVectorRaw( SEXP x){ |
| 70 | std::vector<Rbyte> iv = as< std::vector<Rbyte> >( x ); |
| 71 | for (size_t i=0; i<iv.size(); i++) { |
| 72 | iv[i] = 2*iv[i]; |
| 73 | } |
| 74 | return iv ; |
| 75 | } |
| 76 | |
| 77 | |
| 78 | // [[Rcpp::export]] |