# SCM Repository

[matrix] Diff of /pkg/Matrix/R/ddenseMatrix.R
 [matrix] / pkg / Matrix / R / ddenseMatrix.R # Diff of /pkg/Matrix/R/ddenseMatrix.R

revision 1747, Mon Jan 29 20:17:33 2007 UTC revision 2052, Wed Aug 15 13:33:19 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 82  Line 82
82            function(x, y = NULL) callGeneric(as(x, "dgeMatrix")))            function(x, y = NULL) callGeneric(as(x, "dgeMatrix")))
83
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) 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.2052  