SCM

SCM Repository

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

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

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

revision 3104, Fri May 8 06:46:18 2015 UTC revision 3105, Fri May 8 06:48:01 2015 UTC
# Line 149  Line 149 
149              ydims[0], n);              ydims[0], n);
150      k = ydims[1];      k = ydims[1];
151      if (k < 1 || p < 1) return allocMatrix(REALSXP, p, k);      if (k < 1 || p < 1) return allocMatrix(REALSXP, p, k);
152      xvals = (double *) R_alloc(n * p, sizeof(double));      xvals = (double *) Memcpy(R_alloc(n * p, sizeof(double)), REAL(X), n * p);
     Memcpy(xvals, REAL(X), n * p);  
153      ans = PROTECT(duplicate(y));      ans = PROTECT(duplicate(y));
154      lwork = -1;      lwork = -1;
155      F77_CALL(dgels)("N", &n, &p, &k, xvals, &n, REAL(ans), &n,      F77_CALL(dgels)("N", &n, &p, &k, xvals, &n, REAL(ans), &n,

Legend:
Removed from v.3104  
changed lines
  Added in v.3105

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