The R Project SVN R-packages

Rev

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

Rev 2028 Rev 2143
Line 32... Line 32...
32 
SEXP Csparse_to_dense(SEXP x)
 32 
SEXP Csparse_to_dense(SEXP x)
33 
{
 33 
{
34 
    cholmod_sparse *chxs = as_cholmod_sparse(x);
 34 
    cholmod_sparse *chxs = as_cholmod_sparse(x);
35 
    cholmod_dense *chxd = cholmod_sparse_to_dense(chxs, &c);
 35 
    cholmod_dense *chxd = cholmod_sparse_to_dense(chxs, &c);
36 
 
 36 
 
37 
    free(chxs);
 37 
    Free(chxs);
38 
    return chm_dense_to_SEXP(chxd, 1);
 38 
    return chm_dense_to_SEXP(chxd, 1);
39 
}
 39 
}
40 
 
 40 
 
41 
SEXP Csparse_to_Tsparse(SEXP x)
 41 
SEXP Csparse_to_Tsparse(SEXP x)
42 
{
 42 
{