00001 #ifndef MATRIX_TRMATRIX_H 00002 #define MATRIX_TRMATRIX_H 00003 00004 #include <R_ext/Lapack.h> 00005 #include "Mutils.h" 00006 00007 SEXP dtrMatrix_validate(SEXP obj); 00008 SEXP dtrMatrix_norm(SEXP obj, SEXP type); 00009 SEXP dtrMatrix_rcond(SEXP obj, SEXP type); 00010 SEXP dtrMatrix_solve(SEXP a); 00011 SEXP dtrMatrix_matrix_solve(SEXP a, SEXP b, SEXP classed); 00012 SEXP dtrMatrix_matrix_mm(SEXP a, SEXP b, SEXP classed, SEXP right); 00013 SEXP dtrMatrix_as_dgeMatrix(SEXP from); 00014 SEXP dtrMatrix_as_matrix(SEXP from); 00015 SEXP dtrMatrix_as_dtpMatrix(SEXP from); 00016 SEXP dtrMatrix_getDiag(SEXP x); 00017 void make_array_triangular(double *x, SEXP from); 00018 00019 #endif