https://github.com/cran/Matrix
Tip revision: e113a4448fbc6439c95e24384def829474720412 authored by Doug and Martin on 07 June 2007, 00:00:00 UTC
version 0.99875-2
version 0.99875-2
Tip revision: e113a44
ltTMatrix.R
#### Logical Sparse Triangular Matrices in Triplet format
### contains = "lsparseMatrix"
setAs("matrix", "ltTMatrix",
function(from) as(as(as(from, "TsparseMatrix"), "triangularMatrix"), "lMatrix"))
setAs("ltTMatrix", "lgTMatrix",
function(from) tT2gT(from, cl = "ltTMatrix", toClass = "lgTMatrix"))
setAs("ltTMatrix", "generalMatrix",
function(from) tT2gT(from, cl = "ltTMatrix", toClass = "lgTMatrix"))
setAs("ltTMatrix", "ltCMatrix",
function(from) .Call(Tsparse_to_Csparse, from, TRUE))
setAs("ltTMatrix", "lgCMatrix",
function(from) as(.Call(Tsparse_to_Csparse, from, TRUE), "lgCMatrix"))
setAs("ltTMatrix", "dtTMatrix",
function(from) new("dtTMatrix", i = from@i, j = from@j,
x = rep.int(1, length(from@i)), uplo = from@uplo,
diag = from@diag,
Dim = from@Dim, Dimnames = from@Dimnames))
setAs("ltTMatrix", "ltrMatrix",
function(from) .Call(ltTMatrix_as_ltrMatrix, from))
setAs("ltTMatrix", "matrix",
function(from) as(as(from, "ltrMatrix"), "matrix"))
## untested:
setMethod("image", "ltTMatrix",
function(x, ...) {
x <- as(as(x, "dtTMatrix"), "dgTMatrix")
callGeneric()
})
## FIXME
## setMethod("t", signature(x = "ltTMatrix"),
## function(x) .Call(ltTMatrix_trans, x),
## valueClass = "ltTMatrix")