The R Project SVN R-packages

Rev

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

Rev 1284 Rev 1287
Line 8... Line 8...
8 
 
 8 
 
9 
## needed for t() method
 9 
## needed for t() method
10 
setAs("dtrMatrix", "matrix",
 10 
setAs("dtrMatrix", "matrix",
11 
      function(from) .Call("dtrMatrix_as_matrix", from) )
 11 
      function(from) .Call("dtrMatrix_as_matrix", from) )
12 
 
 12 
 
- 
 
 13 
setAs("matrix", "dtrMatrix",
- 
 
 14 
      function(from) as(as(from, "dgeMatrix"), "dtrMatrix"))
- 
 
 15 
 
13 
## Group Methods:
 16 
## Group Methods:
14 
## TODO: carefully check for the cases where the result remains triangular
 17 
## TODO: carefully check for the cases where the result remains triangular
15 
## instead : inherit them from "dgeMatrix" via definition in ./dMatrix.R
 18 
## instead : inherit them from "dgeMatrix" via definition in ./dMatrix.R
16 
 
 19 
 
17 
setMethod("%*%", signature(x = "dtrMatrix", y = "dgeMatrix"),
 20 
setMethod("%*%", signature(x = "dtrMatrix", y = "dgeMatrix"),