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 2380, Mon May 25 09:45:37 2009 UTC revision 2551, Sat Jun 19 20:45:45 2010 UTC
# Line 17  Line 17 
17  setAs("dtrMatrix", "ltrMatrix", function(from) d2l_Matrix(from, "dtrMatrix"))  setAs("dtrMatrix", "ltrMatrix", function(from) d2l_Matrix(from, "dtrMatrix"))
18  setAs("dtpMatrix", "ltpMatrix", function(from) d2l_Matrix(from, "dtpMatrix"))  setAs("dtpMatrix", "ltpMatrix", function(from) d2l_Matrix(from, "dtpMatrix"))
19    
20    if(FALSE) ## FIXME, this fails for ("dtpMatrix" -> "CsparseMatrix") where .dense2C() works
21  setAs("ddenseMatrix", "CsparseMatrix",  setAs("ddenseMatrix", "CsparseMatrix",
22        function(from) {        function(from) {
23            if (class(from) != "dgeMatrix") # don't lose symmetry/triangularity/...            if (class(from) != "dgeMatrix") # don't lose symmetry/triangularity/...
# Line 81  Line 82 
82  setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),  setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),
83            function(a, b, ...) solve(as(a, "dgeMatrix")))            function(a, b, ...) solve(as(a, "dgeMatrix")))
84    
85  setMethod("solve", signature(a = "ddenseMatrix", b = "ANY"),  for(.b in c("Matrix","ANY")) ## << against ambiguity notes
86    setMethod("solve", signature(a = "ddenseMatrix", b = .b),
87            function(a, b, ...) solve(as(a, "dgeMatrix"), b))            function(a, b, ...) solve(as(a, "dgeMatrix"), b))
88    for(.b in c("matrix","numeric")) ## << against ambiguity notes
89    setMethod("solve", signature(a = "ddenseMatrix", b = .b),
90              function(a, b, ...) solve(as(a, "dgeMatrix"), Matrix(b)))
91    
92  setMethod("lu", signature(x = "ddenseMatrix"),  setMethod("lu", signature(x = "ddenseMatrix"),
93            function(x, ...) lu(as(x, "dgeMatrix")))            function(x, ...) lu(as(x, "dgeMatrix"), ...))
94    
95  setMethod("chol", signature(x = "ddenseMatrix"), cholMat)  setMethod("chol", signature(x = "ddenseMatrix"), cholMat)
96    

Legend:
Removed from v.2380  
changed lines
  Added in v.2551

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