The R Project SVN R-packages

Rev

Rev 4529 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4529 Rev 4549
Line 82... Line 82...
82 
          function(x, y = NULL) callGeneric(as(x, "dgeMatrix")))
 82 
          function(x, y = NULL) callGeneric(as(x, "dgeMatrix")))
83 
 
 83 
 
84 
setMethod("diag", signature(x = "ddenseMatrix"),
 84 
setMethod("diag", signature(x = "ddenseMatrix"),
85 
          function(x, nrow, ncol = n) callGeneric(as(x, "dgeMatrix")))
 85 
          function(x, nrow, ncol = n) callGeneric(as(x, "dgeMatrix")))
86 
 
 86 
 
87 
## These methods cause an infinite loop in pre-2.4.0
 - 
 
88 
## setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),
 87 
setMethod("solve", signature(a = "ddenseMatrix", b = "missing"),
89 
##           function(a, b, ...) callGeneric(as(a, "dgeMatrix")))
 88 
          function(a, b, ...) callGeneric(as(a, "dgeMatrix")))
90 
 
 89 
 
91 
## setMethod("solve", signature(a = "ddenseMatrix", b = "ANY"),
 90 
setMethod("solve", signature(a = "ddenseMatrix", b = "ANY"),
92 
##           function(a, b, ...) callGeneric(as(a, "dgeMatrix"), b))
 91 
          function(a, b, ...) callGeneric(as(a, "dgeMatrix"), b))
93 
 
 92 
 
94 
## General method for dense matrix multiplication in case specific methods
 93 
## General method for dense matrix multiplication in case specific methods
95 
## have not been defined.
 94 
## have not been defined.
96 
setMethod("%*%", signature(x = "ddenseMatrix", y = "ddenseMatrix"),
 95 
setMethod("%*%", signature(x = "ddenseMatrix", y = "ddenseMatrix"),
97 
          function(x, y) .Call(dgeMatrix_matrix_mm,
 96 
          function(x, y) .Call(dgeMatrix_matrix_mm,