SCM

SCM Repository

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

Diff of /pkg/R/dtrMatrix.R

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

revision 1462, Tue Aug 29 16:34:49 2006 UTC revision 1463, Tue Aug 29 22:30:57 2006 UTC
# Line 32  Line 32 
32  ##       show( <ddenseMatrix> ) is not okay, and we need our own:  ##       show( <ddenseMatrix> ) is not okay, and we need our own:
33  setMethod("show", "dtrMatrix", function(object) prMatrix(object))  setMethod("show", "dtrMatrix", function(object) prMatrix(object))
34    
35    setMethod("%*%", signature(x = "dtrMatrix", y = "ddenseMatrix"),
 setMethod("%*%", signature(x = "dtrMatrix", y = "dgeMatrix"),  
36            function(x, y) .Call(dtrMatrix_matrix_mm, x, y, FALSE),            function(x, y) .Call(dtrMatrix_matrix_mm, x, y, FALSE),
37            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
38    
# Line 49  Line 48 
48            function(x, y) .Call(dtrMatrix_matrix_mm, y, x, TRUE),            function(x, y) .Call(dtrMatrix_matrix_mm, y, x, TRUE),
49            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
50    
51  setMethod("%*%", signature(x = "dtrMatrix", y = "dtrMatrix"),  ## no longer needed
52            function(x, y) callGeneric(x = x, y = as(y, "dgeMatrix")),  ## setMethod("%*%", signature(x = "dtrMatrix", y = "dtrMatrix"),
53            valueClass = "dgeMatrix")  ##        function(x, y) callGeneric(x = x, y = as(y, "dgeMatrix")),
54    ##           valueClass = "dgeMatrix")
55    
56  setMethod("crossprod", signature(x = "dtrMatrix", y = "missing"),  setMethod("crossprod", signature(x = "dtrMatrix", y = "missing"),
57            function(x, y = NULL) callGeneric(x = as(x, "dgeMatrix")),            function(x, y = NULL) callGeneric(x = as(x, "dgeMatrix")),
# Line 102  Line 102 
102            .Call(dtrMatrix_solve, a),            .Call(dtrMatrix_solve, a),
103            valueClass = "dtrMatrix")            valueClass = "dtrMatrix")
104    
105  setMethod("solve", signature(a = "dtrMatrix", b="dgeMatrix"),  setMethod("solve", signature(a = "dtrMatrix", b="ddenseMatrix"),
106            function(a, b, ...)            function(a, b, ...)
107            .Call(dtrMatrix_matrix_solve, a, b),            .Call(dtrMatrix_matrix_solve, a, b),
108            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")

Legend:
Removed from v.1462  
changed lines
  Added in v.1463

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