00001 #include <Rinternals.h> 00002 #include <Rdefines.h> 00003 00004 SEXP Matrix_DimSym, Matrix_xSym, Matrix_uploSym, Matrix_diagSym, 00005 Matrix_pSym, Matrix_iSym, Matrix_zSym; 00006 char norm_type(char *typstr); 00007 char rcond_type(char *typstr); 00008 double get_double_by_name(SEXP obj, char *nm); 00009 SEXP set_double_by_name(SEXP obj, double val, char *nm); 00010 SEXP as_det_obj(double val, int log, int sign); 00011 SEXP get_factorization(SEXP obj, char *nm); 00012 SEXP set_factorization(SEXP obj, SEXP val, char *nm); 00013 SEXP cscMatrix_set_Dim(SEXP x, int nrow);