https://github.com/cran/Matrix
Tip revision: 19f0062d379d9a43a18a1dc7ddacd12c535fc08d authored by Douglas Bates on 04 July 2005, 00:00:00 UTC
version 0.97-1
version 0.97-1
Tip revision: 19f0062
lgCMatrix.R
#### Logical Sparse Matrices in Compressed column-oriented format
### contains = "lsparseMatrix"
setMethod("%*%", signature(x = "lgCMatrix", y = "lgCMatrix"),
function(x, y) .Call("lgCMatrix_lgCMatrix_mm", x, y),
valueClass = "lgCMatrix")
setMethod("t", signature(x = "lgCMatrix"),
function(x) .Call("lgCMatrix_trans", x),
valueClass = "lgCMatrix")
setMethod("crossprod", signature(x = "lgCMatrix", y = "missing"),
function(x, y = NULL) .Call("lgCMatrix_crossprod", x, TRUE, NULL),
valueClass = "lsCMatrix")
setMethod("tcrossprod", signature(x = "lgCMatrix"),
function(x) .Call("lgCMatrix_crossprod", x, FALSE, NULL),
valueClass = "lsCMatrix")
setAs("lgCMatrix", "dgCMatrix",
function(from) new("dgCMatrix", i = from@i, p = from@p,
x = rep(1, length(from@i)),
Dim = from@Dim, Dimnames = from@Dimnames))
setAs("lgCMatrix", "lgTMatrix",
function(from) new("lgTMatrix", i = from@i,
j = .Call("Matrix_expand_pointers", from@p),
Dim = from@Dim, Dimnames = from@Dimnames))
setMethod("image", "lgCMatrix",
function(x, ...) {
x <- as(as(x, "dgCMatrix"), "dgTMatrix")
callGeneric()
})