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 1396, Sun Aug 20 03:17:19 2006 UTC revision 1399, Sun Aug 20 16:14:07 2006 UTC
# Line 114  Line 114 
114    
115      /* apply row permutation and multiply by Q' */      /* apply row permutation and multiply by Q' */
116      sparseQR_Qmult(V, beta, p, 1, ax, ydims);      sparseQR_Qmult(V, beta, p, 1, ax, ydims);
117      for (j = 0; j < n; j++) {      for (j = 0; j < ydims[1]; j++) {
118          if (res)                /* zero first n rows */          if (res)                /* zero first n rows */
119              for (i = 0; i < n; i++) ax[i + j * m] = 0;              for (i = 0; i < n; i++) ax[i + j * m] = 0;
120          else                    /* zero last m - n rows */          else                    /* zero last m - n rows */
# Line 125  Line 125 
125      UNPROTECT(1);      UNPROTECT(1);
126      return ans;      return ans;
127  }  }
   
 SEXP sparseQR_fitted(SEXP qr, SEXP y, SEXP classed)  
 {  
     error("not yet written");  
     return R_NilValue;  
 }  

Legend:
Removed from v.1396  
changed lines
  Added in v.1399

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