[[Rcpp::export]]
| 202 | |
| 203 | // [[Rcpp::export]] |
| 204 | IntegerVector runit_GenericMatrix_column_const( const GenericMatrix m ){ |
| 205 | GenericMatrix::ConstColumn col = m.column(0) ; |
| 206 | IntegerVector out( col.size() ) ; |
| 207 | std::transform( |
| 208 | col.begin(), col.end(), |
| 209 | out.begin(), |
| 210 | unary_call<SEXP,int>( Function("length" ) ) |
| 211 | ) ; |
| 212 | return wrap(out) ; |
| 213 | } |
| 214 | |
| 215 | // [[Rcpp::export]] |
| 216 | List runit_Row_Column_sugar( NumericMatrix x){ |