00001 #ifndef MATRIX_GEMATRIX_H 00002 #define MATRIX_GEMATRIX_H 00003 00004 #include <R_ext/Lapack.h> 00005 #include "Mutils.h" 00006 00007 SEXP geMatrix_validate(SEXP obj); 00008 SEXP geMatrix_norm(SEXP obj, SEXP norm); 00009 SEXP geMatrix_crossprod(SEXP x); 00010 SEXP geMatrix_geMatrix_crossprod(SEXP x, SEXP y); 00011 SEXP geMatrix_matrix_crossprod(SEXP x, SEXP y); 00012 SEXP geMatrix_getDiag(SEXP x); 00013 SEXP geMatrix_LU(SEXP x); 00014 SEXP geMatrix_determinant(SEXP x, SEXP logarithm); 00015 SEXP geMatrix_solve(SEXP a); 00016 SEXP geMatrix_geMatrix_mm(SEXP a, SEXP b); 00017 00018 #endif