SCM

SCM Repository

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

Diff of /pkg/R/dspMatrix.R

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

revision 682, Thu Mar 31 08:07:02 2005 UTC revision 683, Thu Mar 31 17:10:16 2005 UTC
# Line 27  Line 27 
27            function(x, y) .Call("dspMatrix_matrix_mm", x, y, FALSE),            function(x, y) .Call("dspMatrix_matrix_mm", x, y, FALSE),
28            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
29    
30  setMethod("%*%", signature(x = "dspMatrix", y = "numeric"),  ##setMethod("%*%", signature(x = "dspMatrix", y = "numeric"),
31            function(x, y) .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE),  ##          function(x, y) .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE),
32            valueClass = "dgeMatrix")  ##          valueClass = "dgeMatrix")
33    
34  setMethod("%*%", signature(x = "dspMatrix", y = "integer"),  setMethod("%*%", signature(x = "dspMatrix", y = "integer"),
35            function(x, y) {            function(x, y) {
# Line 51  Line 51 
51            .Call("dspMatrix_matrix_solve", a, as(b,"matrix"), TRUE),            .Call("dspMatrix_matrix_solve", a, as(b,"matrix"), TRUE),
52            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
53    
54  setMethod("solve", signature(a = "dspMatrix", b = "numeric"),  ##setMethod("solve", signature(a = "dspMatrix", b = "numeric"),
55            function(a, b, ...)  ##        function(a, b, ...)
56            .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE),  ##        .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE),
57            valueClass = "dgeMatrix")  ##        valueClass = "dgeMatrix")
58    
59  setMethod("solve", signature(a = "dspMatrix", b = "integer"),  setMethod("solve", signature(a = "dspMatrix", b = "integer"),
60            function(a, b, ...) {            function(a, b, ...) {

Legend:
Removed from v.682  
changed lines
  Added in v.683

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