00001 #ifndef MATRIX_TPMATRIX_H 00002 #define MATRIX_TPMATRIX_H 00003 00004 #include <R_ext/Lapack.h> 00005 #include "Mutils.h" 00006 00007 SEXP dtpMatrix_validate(SEXP obj); 00008 SEXP dtpMatrix_norm(SEXP obj, SEXP type); 00009 SEXP dtpMatrix_rcond(SEXP obj, SEXP type); 00010 SEXP dtpMatrix_getDiag(SEXP x); 00011 SEXP dtpMatrix_solve(SEXP a); 00012 SEXP dtpMatrix_matrix_solve(SEXP a, SEXP b); 00013 SEXP dtpMatrix_as_dtrMatrix(SEXP from); 00014 SEXP dtpMatrix_dgeMatrix_mm(SEXP x, SEXP y); 00015 SEXP dgeMatrix_dtpMatrix_mm(SEXP x, SEXP y); 00016 SEXP dtpMatrix_matrix_mm(SEXP x, SEXP y); 00017 00018 #endif /* MATRIX_TPMATRIX_H */