SCM

SCM Repository

[matrix] Diff of /branches/Matrix-mer2/src/dgCMatrix.c
ViewVC logotype

Diff of /branches/Matrix-mer2/src/dgCMatrix.c

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

revision 889, Thu Sep 1 14:19:01 2005 UTC revision 890, Thu Sep 1 17:18:08 2005 UTC
# Line 199  Line 199 
199    
200  SEXP compressed_to_dgTMatrix(SEXP x, SEXP colP)  SEXP compressed_to_dgTMatrix(SEXP x, SEXP colP)
201  {  {
202      int col = asLogical(colP);      int col = asLogical(colP); /* 1 if "C"olumn compressed;  0 if "R"ow */
203      SEXP indSym = col ? Matrix_iSym : Matrix_jSym;      SEXP indSym = col ? Matrix_iSym : Matrix_jSym;
204      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgTMatrix"))),      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgTMatrix"))),
205          indP = GET_SLOT(x, indSym),          indP = GET_SLOT(x, indSym),

Legend:
Removed from v.889  
changed lines
  Added in v.890

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