00001 #ifndef MATRIX_POMATRIX_H 00002 #define MATRIX_POMATRIX_H 00003 00004 #include <R_ext/Lapack.h> 00005 #include "Mutils.h" 00006 00007 SEXP dpoMatrix_rcond(SEXP obj, SEXP type); 00008 SEXP dpoMatrix_validate(SEXP obj); 00009 SEXP dpoMatrix_solve(SEXP a); 00010 SEXP dpoMatrix_matrix_solve(SEXP a, SEXP b); 00011 SEXP dpoMatrix_dgeMatrix_solve(SEXP a, SEXP b); 00012 SEXP dpoMatrix_chol(SEXP x); 00013 double get_norm_sy(SEXP obj, char *typstr); 00014 00015 #endif