The R Project SVN R-packages

Rev

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

Rev 3827 Rev 4418
Line 15... Line 15...
15 
SEXP dppMatrix_chol(SEXP x)
 15 
SEXP dppMatrix_chol(SEXP x)
16 
{
 16 
{
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 
    const char *uplo = CHAR(STRING_ELT(uploP, 0));
21 
    int *dims = INTEGER(dimP), info;
 21 
    int *dims = INTEGER(dimP), info;
22 
 
 22 
 
23 
    if (val != R_NilValue) return val;
 23 
    if (val != R_NilValue) return val;
24 
    dims = INTEGER(dimP);
 24 
    dims = INTEGER(dimP);
25 
    val = PROTECT(NEW_OBJECT(MAKE_CLASS("pCholesky")));
 25 
    val = PROTECT(NEW_OBJECT(MAKE_CLASS("pCholesky")));