[[Rcpp::export]]
| 136 | |
| 137 | // [[Rcpp::export]] |
| 138 | IntegerVector runit_GenericMatrix_row_const( const GenericMatrix m ){ |
| 139 | GenericMatrix::ConstRow first_row = m.row(0) ; |
| 140 | IntegerVector out( first_row.size() ) ; |
| 141 | std::transform( |
| 142 | first_row.begin(), first_row.end(), |
| 143 | out.begin(), |
| 144 | unary_call<SEXP,int>( Function("length" ) ) ) ; |
| 145 | return out ; |
| 146 | } |
| 147 | |
| 148 | // [[Rcpp::export]] |
| 149 | double runit_NumericMatrix_column( NumericMatrix m ){ |