00001 00002 void C_kronecker (const double *A, const int m, const int n, 00003 const double *B, const int r, const int s, 00004 double *ans); 00005 SEXP La_svd(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, 00006 SEXP v, SEXP method); 00007 void C_SampleNoReplace(int *x, int m, int k, int *ans); 00008 void C_MPinv (SEXP x, double tol, SEXP svdmem, SEXP ans); 00009 double C_max(const double *x, const int n); 00010 void C_abs(double *x, int n); 00011 void C_matprod(double *x, int nrx, int ncx, 00012 double *y, int nry, int ncy, double *z); 00013 void C_matprodT(double *x, int nrx, int ncx, 00014 double *y, int nry, int ncy, double *z); 00015 int nrow(SEXP x); 00016 int ncol(SEXP y); 00017 int C_whichmax(double *pvalue, double *teststat, int ninputs); 00018 int i_in_set(int i, int *iset, int p); 00019 int C_i_in_set(int i, SEXP set);