SCM

SCM Repository

[matrix] Diff of /pkg/src/geMatrix.c
ViewVC logotype

Diff of /pkg/src/geMatrix.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 345, Tue Nov 23 15:35:55 2004 UTC revision 377, Sat Dec 11 13:46:42 2004 UTC
# Line 76  Line 76 
76    
77  SEXP geMatrix_crossprod(SEXP x)  SEXP geMatrix_crossprod(SEXP x)
78  {  {
79      SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("poMatrix"))),      SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("poMatrix")));
         xslot;  
80      int *Dims = INTEGER(GET_SLOT(x, Matrix_DimSym)),      int *Dims = INTEGER(GET_SLOT(x, Matrix_DimSym)),
81          *vDims;          *vDims;
82      int i, n = Dims[1];      int i, n = Dims[1];
# Line 280  Line 279 
279    
280  SEXP geMatrix_svd(SEXP x, SEXP nnu, SEXP nnv)  SEXP geMatrix_svd(SEXP x, SEXP nnu, SEXP nnv)
281  {  {
282      int nu = asInteger(nnu),      int /* nu = asInteger(nnu),
283          nv = asInteger(nnv),             nv = asInteger(nnv), */
284          *dims = INTEGER(GET_SLOT(x, Matrix_DimSym));          *dims = INTEGER(GET_SLOT(x, Matrix_DimSym));
285      double *xx = REAL(GET_SLOT(x, Matrix_xSym));      double *xx = REAL(GET_SLOT(x, Matrix_xSym));
286      SEXP val = PROTECT(allocVector(VECSXP, 3));      SEXP val = PROTECT(allocVector(VECSXP, 3));

Legend:
Removed from v.345  
changed lines
  Added in v.377

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge