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 372, Sun Dec 5 13:53:29 2004 UTC revision 379, Sat Dec 11 13:48:29 2004 UTC
# Line 1507  Line 1507 
1507  SEXP ssclme_Hessian(SEXP x, SEXP REMLp, SEXP Uncp)  SEXP ssclme_Hessian(SEXP x, SEXP REMLp, SEXP Uncp)
1508  {  {
1509      int j, ncoef = coef_length(length(GET_SLOT(x, Matrix_OmegaSym)),      int j, ncoef = coef_length(length(GET_SLOT(x, Matrix_OmegaSym)),
1510                                 INTEGER(GET_SLOT(x, Matrix_ncSym))),                                 INTEGER(GET_SLOT(x, Matrix_ncSym)))
1511          unc = asLogical(Uncp);          /* , unc = asLogical(Uncp) */
1512            ;
1513      SEXP ans = PROTECT(allocMatrix(REALSXP, ncoef, ncoef)),      SEXP ans = PROTECT(allocMatrix(REALSXP, ncoef, ncoef)),
1514          base = PROTECT(ssclme_coef(x, Uncp)),          base = PROTECT(ssclme_coef(x, Uncp)),
1515          current = PROTECT(duplicate(base)),          current = PROTECT(duplicate(base)),

Legend:
Removed from v.372  
changed lines
  Added in v.379

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