The R Project SVN R-packages

Rev

Rev 5006 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5006 Rev 5015
Line 124... Line 124...
124 
    CHM_FR L = AS_CHM_FR(object), Lcp;
 124 
    CHM_FR L = AS_CHM_FR(object), Lcp;
125 
    CHM_SP A = AS_CHM_SP(parent);
 125 
    CHM_SP A = AS_CHM_SP(parent);
126 
    R_CheckStack();
 126 
    R_CheckStack();
127 
 
 127 
 
128 
    Lcp = cholmod_copy_factor(L, &c);
 128 
    Lcp = cholmod_copy_factor(L, &c);
129 
    return chm_factor_to_SEXP(chm_factor_update(Lcp, A, asReal(mult)), -1);
 129 
    return chm_factor_to_SEXP(chm_factor_update(Lcp, A, asReal(mult)), 1);
130 
}
 130 
}
131 
 
 131 
 
132 
SEXP CHMfactor_ldetL2up(SEXP x, SEXP parent, SEXP mult)
 132 
SEXP CHMfactor_ldetL2up(SEXP x, SEXP parent, SEXP mult)
133 
{
 133 
{
134 
    SEXP ans = PROTECT(duplicate(mult));
 134 
    SEXP ans = PROTECT(duplicate(mult));