[[Rcpp::export]]
| 190 | |
| 191 | // [[Rcpp::export]] |
| 192 | IntegerVector runit_GenericMatrix_column( GenericMatrix m ){ |
| 193 | GenericMatrix::Column col = m.column(0) ; |
| 194 | IntegerVector out( col.size() ) ; |
| 195 | std::transform( |
| 196 | col.begin(), col.end(), |
| 197 | out.begin(), |
| 198 | unary_call<SEXP,int>( Function("length" ) ) |
| 199 | ) ; |
| 200 | return wrap(out) ; |
| 201 | } |
| 202 | |
| 203 | // [[Rcpp::export]] |
| 204 | IntegerVector runit_GenericMatrix_column_const( const GenericMatrix m ){ |