[[Rcpp::export]]
| 49 | |
| 50 | // [[Rcpp::export]] |
| 51 | std::vector<int> asStdVectorInt( SEXP x){ |
| 52 | std::vector<int> iv = as< std::vector<int> >(x); |
| 53 | for (size_t i=0; i<iv.size(); i++) { |
| 54 | iv[i] = 2*iv[i]; |
| 55 | } |
| 56 | return iv ; |
| 57 | } |
| 58 | |
| 59 | // [[Rcpp::export]] |
| 60 | std::vector<double> asStdVectorDouble(SEXP x){ |