SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/Summary.R
ViewVC logotype

Diff of /pkg/Matrix/R/Summary.R

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

revision 3058, Mon Mar 16 17:37:51 2015 UTC revision 3059, Mon Mar 16 17:40:18 2015 UTC
# Line 50  Line 50 
50            n <- d[1]            n <- d[1]
51            clx <- getClassDef(class(x))            clx <- getClassDef(class(x))
52            isTri <- extends(clx, "triangularMatrix")            isTri <- extends(clx, "triangularMatrix")
53            if(extends(clx, "TsparseMatrix") && is_duplicatedT(x, di = d))            if(extends(clx, "TsparseMatrix") && anyDuplicatedT(x, di = d))
54                x <- .Call(Tsparse_to_Csparse, x, isTri)# = as(x, "Csparsematrix")                x <- .Call(Tsparse_to_Csparse, x, isTri)# = as(x, "Csparsematrix")
55            l.x <- length(x@x)            l.x <- length(x@x)
56            if(l.x == ne) ## fully non-zero (and "general") - very rare but quick            if(l.x == ne) ## fully non-zero (and "general") - very rare but quick

Legend:
Removed from v.3058  
changed lines
  Added in v.3059

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