[[Rcpp::export]]
| 42 | |
| 43 | // [[Rcpp::export]] |
| 44 | List matrix_generic( GenericMatrix m){ |
| 45 | List output( m.ncol() ) ; |
| 46 | for( size_t i=0 ; i<4; i++){ |
| 47 | output[i] = m(i,i) ; |
| 48 | } |
| 49 | return output ; |
| 50 | } |
| 51 | |
| 52 | // [[Rcpp::export]] |
| 53 | NumericMatrix matrix_opequals(SEXP x) { |