[[Rcpp::export]]
| 77 | |
| 78 | // [[Rcpp::export]] |
| 79 | std::vector<bool> asStdVectorBool( SEXP x ){ |
| 80 | std::vector<bool> bv = as< std::vector<bool> >( x ); |
| 81 | for (size_t i=0; i<bv.size(); i++) { |
| 82 | bv[i].flip() ; |
| 83 | } |
| 84 | return bv ; |
| 85 | } |
| 86 | |
| 87 | // [[Rcpp::export]] |
| 88 | std::vector<std::string> asStdVectorString( SEXP x){ |