1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#### Superclass Methods for all sparse logical matrices
setAs("CsparseMatrix", "lsparseMatrix",
function(from) as(.Call(Csparse_to_nz_pattern, from,
is(from, "triangularMatrix")), "lsparseMatrix"))
setAs("lsparseMatrix", "matrix",
function(from) as(as(from, "ldenseMatrix"), "matrix"))
###------- Work via as(*, lgC) : ------------
## For multiplication operations, sparseMatrix overrides other method
## selections. Coerce a ddensematrix argument to a lsparseMatrix.
setMethod("%*%", signature(x = "lsparseMatrix", y = "ldenseMatrix"),
function(x, y) callGeneric(x, as(y, "lsparseMatrix")))
setMethod("%*%", signature(x = "ldenseMatrix", y = "lsparseMatrix"),
function(x, y) callGeneric(as(x, "lsparseMatrix"), y))
setMethod("crossprod", signature(x = "lsparseMatrix", y = "ldenseMatrix"),
function(x, y = NULL) callGeneric(x, as(y, "lsparseMatrix")))
setMethod("crossprod", signature(x = "ldenseMatrix", y = "lsparseMatrix"),
function(x, y = NULL) callGeneric(as(x, "lsparseMatrix"), y))
## and coerce lsparse* to lgC*
setMethod("%*%", signature(x = "lsparseMatrix", y = "lsparseMatrix"),
function(x, y) callGeneric(as(x, "lgCMatrix"), as(y, "lgCMatrix")))
setMethod("crossprod", signature(x = "lsparseMatrix", y = "lsparseMatrix"),
function(x, y = NULL)
callGeneric(as(x, "lgCMatrix"), as(y, "lgCMatrix")))
setMethod("!", "lsparseMatrix",
## turns FALSE to TRUE --> dense matrix
function(e1) !as(e1, "lgeMatrix"))
setMethod("diag", signature(x = "lsparseMatrix"),
function(x, nrow, ncol = n) diag(as(x, "lgCMatrix")))
|
