SCM

SCM Repository

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

Diff of /pkg/Matrix/src/sparseQR.c

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

revision 3267, Wed Mar 21 22:24:41 2018 UTC revision 3273, Sat Mar 24 16:29:40 2018 UTC
# Line 99  Line 99 
99          m = ydims[0], n = ydims[1], M = V->m, *d_a;                     \          m = ydims[0], n = ydims[1], M = V->m, *d_a;                     \
100      Rboolean rank_def = (m < M);                                        \      Rboolean rank_def = (m < M);                                        \
101      if(rank_def) { /* must add 0-rows to y, i.e. ans, and remove them *before* return */ \      if(rank_def) { /* must add 0-rows to y, i.e. ans, and remove them *before* return */ \
102          aa = PROTECT(NEW_OBJECT(MAKE_CLASS("dgeMatrix")));              \          aa = PROTECT(NEW_OBJECT_OF_CLASS("dgeMatrix"));                 \
103          d_a = INTEGER(GET_SLOT(aa, Matrix_DimSym)); d_a[0] = M; d_a[1] = n; \          d_a = INTEGER(GET_SLOT(aa, Matrix_DimSym)); d_a[0] = M; d_a[1] = n; \
104          SEXP dn = GET_SLOT(aa, Matrix_DimNamesSym);                     \          SEXP dn = GET_SLOT(aa, Matrix_DimNamesSym);                     \
105          SET_VECTOR_ELT(dn, 1,                                           \          SET_VECTOR_ELT(dn, 1,                                           \

Legend:
Removed from v.3267  
changed lines
  Added in v.3273

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