SCM

SCM Repository

[matrix] Diff of /pkg/R/sparseMatrix.R
ViewVC logotype

Diff of /pkg/R/sparseMatrix.R

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

revision 2114, Mon Feb 18 17:15:41 2008 UTC revision 2115, Sat Feb 23 09:23:17 2008 UTC
# Line 410  Line 410 
410                ## pretest: is it square?                ## pretest: is it square?
411                d <- dim(object)                d <- dim(object)
412                if(d[1] != d[2]) return(FALSE)                if(d[1] != d[2]) return(FALSE)
413                ## else slower test  
414                  ## else slower test using t()  --
415    
416                  ## FIXME (for tol = 0): use cholmod_symmetry(A, 1, ...)
417                  ##        for tol > 0   should modify  cholmod_symmetry(..) to work with tol
418    
419                  ## or slightly simpler, rename and export  is_sym() in ../src/cs_utils.c
420    
421    
422                if (is(object, "dMatrix"))                if (is(object, "dMatrix"))
423                    ## use gC; "T" (triplet) is *not* unique!                    ## use gC; "T" (triplet) is *not* unique!
424                    isTRUE(all.equal(.as.dgC.0.factors(  object),                    isTRUE(all.equal(.as.dgC.0.factors(  object),

Legend:
Removed from v.2114  
changed lines
  Added in v.2115

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