The R Project SVN R-packages

Rev

Rev 1284 | Rev 1997 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1284 Rev 1321
Line 29... Line 29...
29 
setMethod("solve", signature(a = "dppMatrix", b = "matrix"),
 29 
setMethod("solve", signature(a = "dppMatrix", b = "matrix"),
30 
          function(a, b, ...)
 30 
          function(a, b, ...)
31 
          .Call("dppMatrix_matrix_solve", a, b, FALSE),
 31 
          .Call("dppMatrix_matrix_solve", a, b, FALSE),
32 
          valueClass = "dgeMatrix")
 32 
          valueClass = "dgeMatrix")
33 
 
 33 
 
34 
setMethod("solve", signature(a = "dppMatrix", b = "numeric"),
 34 
##setMethod("solve", signature(a = "dppMatrix", b = "numeric"),
35 
          function(a, b, ...)
 35 
##          function(a, b, ...)
36 
          .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE),
 36 
##          .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE),
37 
          valueClass = "dgeMatrix")
 37 
##          valueClass = "dgeMatrix")
38 
 
 38 
 
39 
setMethod("solve", signature(a = "dppMatrix", b = "integer"),
 39 
setMethod("solve", signature(a = "dppMatrix", b = "integer"),
40 
          function(a, b, ...) {
 40 
          function(a, b, ...) {
41 
              storage.mode(b) <- "double"
 41 
              storage.mode(b) <- "double"
42 
              .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE)
 42 
              .Call("dppMatrix_matrix_solve", a, as.matrix(b), FALSE)