The R Project SVN R-packages

Rev

Rev 1284 | Rev 1877 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1284 Rev 1285
Line 17... Line 17...
17 
    SEXP val = get_factors(x, "pCholesky"),
 17 
    SEXP val = get_factors(x, "pCholesky"),
18 
	dimP = GET_SLOT(x, Matrix_DimSym),
 18 
	dimP = GET_SLOT(x, Matrix_DimSym),
19 
	uploP = GET_SLOT(x, Matrix_uploSym);
 19 
	uploP = GET_SLOT(x, Matrix_uploSym);
20 
    char *uplo = CHAR(STRING_ELT(uploP, 0));
 20 
    char *uplo = CHAR(STRING_ELT(uploP, 0));
21 
    int *dims = INTEGER(dimP), info;
 21 
    int *dims = INTEGER(dimP), info;
22 
    double *vx;
 - 
 
23 
 
 22 
 
24 
    if (val != R_NilValue) return val;
 23 
    if (val != R_NilValue) return val;
25 
    dims = INTEGER(dimP);
 24 
    dims = INTEGER(dimP);
26 
    val = PROTECT(NEW_OBJECT(MAKE_CLASS("pCholesky")));
 25 
    val = PROTECT(NEW_OBJECT(MAKE_CLASS("pCholesky")));
27 
    SET_SLOT(val, Matrix_uploSym, duplicate(uploP));
 26 
    SET_SLOT(val, Matrix_uploSym, duplicate(uploP));