SCM

SCM Repository

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

Diff of /pkg/src/ssclme.c

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

revision 124, Sat Apr 24 23:36:29 2004 UTC revision 125, Sun Apr 25 11:59:37 2004 UTC
# Line 1263  Line 1263 
1263          alpha,          alpha,
1264          one = 1.;          one = 1.;
1265      SEXP ans = PROTECT(allocVector(REALSXP, coef_length(nf, nc)));      SEXP ans = PROTECT(allocVector(REALSXP, coef_length(nf, nc)));
1266        int *status = LOGICAL(GET_SLOT(x, Matrix_statusSym));
1267    
1268        ssclme_factor(x);
1269        if (!R_FINITE(REAL(GET_SLOT(x, Matrix_devianceSym))[0])) {
1270            int ncoef = coef_length(nf, nc);
1271            for (i = 0; i < ncoef; i++) REAL(ans)[i] = NA_REAL;
1272            UNPROTECT(1);
1273            return ans;
1274        }
1275      nobs = nc[nf + 1];      nobs = nc[nf + 1];
1276      p = pp1 - 1;      p = pp1 - 1;
1277      b = RZX + p * n;      b = RZX + p * n;

Legend:
Removed from v.124  
changed lines
  Added in v.125

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