[[Rcpp::export]]
| 125 | |
| 126 | // [[Rcpp::export]] |
| 127 | IntegerVector runit_GenericMatrix_row( GenericMatrix m ){ |
| 128 | GenericMatrix::Row first_row = m.row(0) ; |
| 129 | IntegerVector out( first_row.size() ) ; |
| 130 | std::transform( |
| 131 | first_row.begin(), first_row.end(), |
| 132 | out.begin(), |
| 133 | unary_call<SEXP,int>( Function("length" ) ) ) ; |
| 134 | return out ; |
| 135 | } |
| 136 | |
| 137 | // [[Rcpp::export]] |
| 138 | IntegerVector runit_GenericMatrix_row_const( const GenericMatrix m ){ |