SCM

SCM Repository

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

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

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

revision 2996, Thu Aug 7 18:44:26 2014 UTC revision 3273, Sat Mar 24 16:29:40 2018 UTC
# Line 29  Line 29 
29    
30      if (val != R_NilValue) return val;// use x@factors$Cholesky if available      if (val != R_NilValue) return val;// use x@factors$Cholesky if available
31      dims = INTEGER(dimP);      dims = INTEGER(dimP);
32      val = PROTECT(NEW_OBJECT(MAKE_CLASS("Cholesky")));      val = PROTECT(NEW_OBJECT_OF_CLASS("Cholesky"));
33      SET_SLOT(val, Matrix_uploSym, duplicate(uploP));      SET_SLOT(val, Matrix_uploSym, duplicate(uploP));
34      SET_SLOT(val, Matrix_diagSym, mkString("N"));      SET_SLOT(val, Matrix_diagSym, mkString("N"));
35      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));
# Line 68  Line 68 
68  SEXP dpoMatrix_solve(SEXP x)  SEXP dpoMatrix_solve(SEXP x)
69  {  {
70      SEXP Chol = dpoMatrix_chol(x);      SEXP Chol = dpoMatrix_chol(x);
71      SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("dpoMatrix")));      SEXP val = PROTECT(NEW_OBJECT_OF_CLASS("dpoMatrix"));
72      int *dims = INTEGER(GET_SLOT(x, Matrix_DimSym)), info;      int *dims = INTEGER(GET_SLOT(x, Matrix_DimSym)), info;
73    
74      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));
# Line 86  Line 86 
86  SEXP dpoMatrix_dgeMatrix_solve(SEXP a, SEXP b)  SEXP dpoMatrix_dgeMatrix_solve(SEXP a, SEXP b)
87  {  {
88      SEXP Chol = dpoMatrix_chol(a),      SEXP Chol = dpoMatrix_chol(a),
89          val = PROTECT(NEW_OBJECT(MAKE_CLASS("dgeMatrix")));          val = PROTECT(NEW_OBJECT_OF_CLASS("dgeMatrix"));
90      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),
91          *bdims = INTEGER(GET_SLOT(b, Matrix_DimSym)),          *bdims = INTEGER(GET_SLOT(b, Matrix_DimSym)),
92          info;          info;

Legend:
Removed from v.2996  
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