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 656, Wed Mar 16 16:55:32 2005 UTC revision 657, Wed Mar 16 16:57:52 2005 UTC
# Line 48  Line 48 
48    
49  setMethod("solve", signature(a = "dspMatrix", b = "dgeMatrix"),  setMethod("solve", signature(a = "dspMatrix", b = "dgeMatrix"),
50            function(a, b, ...)            function(a, b, ...)
51            .Call("dspMatrix_dgeMatrix_solve", a, b, 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_dgeMatrix_solve", a, as.matrix(b), TRUE),            .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, ...) {
61                storage.mode(b) <- "double"                storage.mode(b) <- "double"
62                .Call("dspMatrix_dgeMatrix_solve", a, as.matrix(b), TRUE)                .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE)
63            }, valueClass = "dgeMatrix")            }, valueClass = "dgeMatrix")
64    
65  setMethod("norm", signature(x = "dspMatrix", type = "character"),  setMethod("norm", signature(x = "dspMatrix", type = "character"),

Legend:
Removed from v.656  
changed lines
  Added in v.657

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge