00001 #ifndef MATRIX_SYMATRIX_H 00002 #define MATRIX_SYMATRIX_H 00003 00004 #include "dgeMatrix.h" 00005 #include "R_ext/Lapack.h" 00006 00007 SEXP dsyMatrix_validate(SEXP obj); 00008 double get_norm_sy(SEXP obj, char *typstr); 00009 SEXP dsyMatrix_norm(SEXP obj, SEXP type); 00010 SEXP dsyMatrix_rcond(SEXP obj, SEXP type); 00011 SEXP dsyMatrix_solve(SEXP a); 00012 SEXP dsyMatrix_matrix_solve(SEXP a, SEXP b); 00013 SEXP dsyMatrix_as_dgeMatrix(SEXP from); 00014 SEXP dsyMatrix_as_matrix(SEXP from); 00015 SEXP dsyMatrix_dgeMatrix_mm(SEXP a, SEXP b); 00016 SEXP dsyMatrix_dgeMatrix_mm_R(SEXP a, SEXP b); 00017 00018 #endif