SCM

SCM Repository

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

Diff of /pkg/R/dppMatrix.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 9  Line 9 
9    
10  setMethod("chol", signature(x = "dppMatrix"),  setMethod("chol", signature(x = "dppMatrix"),
11            function(x, pivot, LINPACK)            function(x, pivot, LINPACK)
12            .Call("dppMatrix_chol", x, PACKAGE = "Matrix"))            .Call(dppMatrix_chol, x))
13    
14  setMethod("rcond", signature(x = "dppMatrix", type = "character"),  setMethod("rcond", signature(x = "dppMatrix", type = "character"),
15            function(x, type, ...)            function(x, type, ...)
16            .Call("dppMatrix_rcond", x, type, PACKAGE = "Matrix"),            .Call(dppMatrix_rcond, x, type),
17            valueClass = "numeric")            valueClass = "numeric")
18    
19  setMethod("rcond", signature(x = "dppMatrix", type = "missing"),  setMethod("rcond", signature(x = "dppMatrix", type = "missing"),
20            function(x, type, ...)            function(x, type, ...)
21            .Call("dppMatrix_rcond", x, "O", PACKAGE = "Matrix"),            .Call(dppMatrix_rcond, x, "O"),
22            valueClass = "numeric")            valueClass = "numeric")
23    
24  setMethod("solve", signature(a = "dppMatrix", b = "missing"),  setMethod("solve", signature(a = "dppMatrix", b = "missing"),
25            function(a, b, ...)            function(a, b, ...)
26            .Call("dppMatrix_solve", a, PACKAGE = "Matrix"),            .Call(dppMatrix_solve, a),
27            valueClass = "dppMatrix")            valueClass = "dppMatrix")
28    
29  setMethod("solve", signature(a = "dppMatrix", b = "dgeMatrix"),  setMethod("solve", signature(a = "dppMatrix", b = "dgeMatrix"),
30            function(a, b, ...)            function(a, b, ...)
31            .Call("dppMatrix_matrix_solve", a, b, TRUE, PACKAGE = "Matrix"),            .Call(dppMatrix_matrix_solve, a, b, TRUE),
32            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
33    
34  setMethod("solve", signature(a = "dppMatrix", b = "matrix"),  setMethod("solve", signature(a = "dppMatrix", b = "matrix"),
35            function(a, b, ...)            function(a, b, ...)
36            .Call("dppMatrix_matrix_solve", a, b, FALSE, PACKAGE = "Matrix"),            .Call(dppMatrix_matrix_solve, a, b, FALSE),
37            valueClass = "dgeMatrix")            valueClass = "dgeMatrix")
38    
39  ##setMethod("solve", signature(a = "dppMatrix", b = "numeric"),  ##setMethod("solve", signature(a = "dppMatrix", b = "numeric"),
40  ##          function(a, b, ...)  ##          function(a, b, ...)
41  ##          .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE, PACKAGE = "Matrix"),  ##          .Call(dppMatrix_matrix_solve, a, as.matrix(b), FALSE),
42  ##          valueClass = "dgeMatrix")  ##          valueClass = "dgeMatrix")
43    
44  setMethod("solve", signature(a = "dppMatrix", b = "integer"),  setMethod("solve", signature(a = "dppMatrix", b = "integer"),
45            function(a, b, ...) {            function(a, b, ...) {
46                storage.mode(b) <- "double"                storage.mode(b) <- "double"
47                .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE, PACKAGE = "Matrix")                .Call(dppMatrix_matrix_solve, a, as.matrix(b), FALSE)
48            }, valueClass = "dgeMatrix")            }, valueClass = "dgeMatrix")
49    
50  setMethod("t", signature(x = "dppMatrix"),  setMethod("t", signature(x = "dppMatrix"),

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 University of Wisconsin - Madison Powered By FusionForge