SCM

SCM Repository

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

Diff of /pkg/R/dpoMatrix.R

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

revision 1279, Tue May 23 08:01:11 2006 UTC revision 1280, Tue May 23 08:01:44 2006 UTC
# Line 19  Line 19 
19    
20  setMethod("chol", signature(x = "dpoMatrix"),  setMethod("chol", signature(x = "dpoMatrix"),
21            function(x, pivot, LINPACK)            function(x, pivot, LINPACK)
22            .Call("dpoMatrix_chol", x, PACKAGE = "Matrix"))            .Call(dpoMatrix_chol, x))
23    
24  setMethod("rcond", signature(x = "dpoMatrix", type = "character"),  setMethod("rcond", signature(x = "dpoMatrix", type = "character"),
25            function(x, type, ...)            function(x, type, ...)
26            .Call("dpoMatrix_rcond", x, type, PACKAGE = "Matrix"),            .Call(dpoMatrix_rcond, x, type),
27            valueClass = "numeric")            valueClass = "numeric")
28    
29  setMethod("rcond", signature(x = "dpoMatrix", type = "missing"),  setMethod("rcond", signature(x = "dpoMatrix", type = "missing"),
30            function(x, type, ...)            function(x, type, ...)
31            .Call("dpoMatrix_rcond", x, "O", PACKAGE = "Matrix"),            .Call(dpoMatrix_rcond, x, "O"),
32            valueClass = "numeric")            valueClass = "numeric")
33    
34  setMethod("solve", signature(a = "dpoMatrix", b = "missing"),  setMethod("solve", signature(a = "dpoMatrix", b = "missing"),
35            function(a, b, ...)            function(a, b, ...)
36            .Call("dpoMatrix_solve", a, PACKAGE = "Matrix"),            .Call(dpoMatrix_solve, a),
37            valueClass = "dpoMatrix")            valueClass = "dpoMatrix")
38    
39  setMethod("solve", signature(a = "dpoMatrix", b = "dgeMatrix"),  setMethod("solve", signature(a = "dpoMatrix", b = "dgeMatrix"),
40            function(a, b, ...)            function(a, b, ...)
41            .Call("dpoMatrix_dgeMatrix_solve", a, b, PACKAGE = "Matrix"),            .Call(dpoMatrix_dgeMatrix_solve, a, b),
42            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
43    
44  setMethod("solve", signature(a = "dpoMatrix", b = "matrix"),  setMethod("solve", signature(a = "dpoMatrix", b = "matrix"),
45            function(a, b, ...)            function(a, b, ...)
46            .Call("dpoMatrix_matrix_solve", a, b, PACKAGE = "Matrix"),            .Call(dpoMatrix_matrix_solve, a, b),
47            valueClass = "matrix")            valueClass = "matrix")
48    
49  ## Is this usable / necessary?  -- FIXME!  ## Is this usable / necessary?  -- FIXME!
50  ## setMethod("solve", signature(a = "dpoMatrix", b = "numeric"),  ## setMethod("solve", signature(a = "dpoMatrix", b = "numeric"),
51  ##          function(a, b, ...)  ##          function(a, b, ...)
52  ##          as.numeric(.Call("dpoMatrix_matrix_solve",  ##          as.numeric(.Call(dpoMatrix_matrix_solve,
53  ##                           a, as.matrix(b), PACKAGE = "Matrix")),  ##                           a, as.matrix(b))),
54  ##          valueClass = "numeric")  ##          valueClass = "numeric")
55    

Legend:
Removed from v.1279  
changed lines
  Added in v.1280

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