SCM

SCM Repository

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

Diff of /pkg/Matrix/R/ddenseMatrix.R

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

revision 1747, Mon Jan 29 20:17:33 2007 UTC revision 1945, Wed Jul 4 18:07:07 2007 UTC
# Line 20  Line 20 
20    
21  setAs("ddenseMatrix", "CsparseMatrix",  setAs("ddenseMatrix", "CsparseMatrix",
22        function(from) {        function(from) {
23            if (class(from) != "dgeMatrix")            if (class(from) != "dgeMatrix") # don't lose symmetry/triangularity/...
24                from <- .Call(dup_mMatrix_as_dgeMatrix, from)                as_Csparse(from)
25            .Call(dense_to_Csparse, from)            else .Call(dense_to_Csparse, from)
26        })        })
27    
28  ## special case  ## special case
# Line 84  Line 84 
84  setMethod("diag", signature(x = "ddenseMatrix"),  setMethod("diag", signature(x = "ddenseMatrix"),
85            function(x, nrow, ncol = n) callGeneric(as(x, "dgeMatrix")))            function(x, nrow, ncol = n) callGeneric(as(x, "dgeMatrix")))
86    
87  ## These methods cause an infinite loop in pre-2.4.0  setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),
88  ## setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),            function(a, b, ...) callGeneric(as(a, "dgeMatrix")))
 ##           function(a, b, ...) callGeneric(as(a, "dgeMatrix")))  
89    
90  ## setMethod("solve", signature(a = "ddenseMatrix", b = "ANY"),  setMethod("solve", signature(a = "ddenseMatrix", b = "ANY"),
91  ##           function(a, b, ...) callGeneric(as(a, "dgeMatrix"), b))            function(a, b, ...) callGeneric(as(a, "dgeMatrix"), b))
92    
93  ## General method for dense matrix multiplication in case specific methods  ## General method for dense matrix multiplication in case specific methods
94  ## have not been defined.  ## have not been defined.

Legend:
Removed from v.1747  
changed lines
  Added in v.1945

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