https://github.com/cran/Matrix
Tip revision: c12078aaee04322c8c31a00fb93c7d8ea5ca7402 authored by Douglas Bates on 19 April 2006, 00:00:00 UTC
version 0.995-10
version 0.995-10
Tip revision: c12078a
ltCMatrix.R
#### Logical Sparse Triangular Matrices in Compressed column-oriented format
setAs("ltCMatrix", "matrix",
function(from) as(as(from, "lgCMatrix"), "matrix"))
setAs("matrix", "ltCMatrix",
function(from) as(as(from, "dtCMatrix"), "ltCMatrix"))
setAs("ltCMatrix", "lgCMatrix",
function(from) new("lgCMatrix", i = from@i, p = from@p,
Dim = from@Dim, Dimnames = from@Dimnames))
setAs("ltCMatrix", "dMatrix", # < instead of "dtCMatrix"
function(from) new("dtCMatrix", i = from@i, p = from@p,
x = rep.int(1, length(from@i)), uplo = from@uplo,
diag = from@diag,
Dim = from@Dim, Dimnames = from@Dimnames))
## setAs("ltCMatrix", "generalMatrix",
## function(from) ......)
setMethod("image", "ltCMatrix",
function(x, ...) {
x <- as(as(x, "dtCMatrix"), "dgTMatrix")
callGeneric()
})
setMethod("t", signature(x = "ltCMatrix"),
function(x) .Call("ltCMatrix_trans", x, PACKAGE = "Matrix"),
valueClass = "ltCMatrix")