https://github.com/cran/Matrix
Raw File
Tip revision: 184a500dfd451722bb74afc9ea388a1fc5809c58 authored by Douglas Bates on 06 July 2005, 00:00:00 UTC
version 0.97-2
Tip revision: 184a500
ltCMatrix.R
#### Logical Sparse Triangular Matrices in Compressed column-oriented format

### contains = "lsparseMatrix"

setAs("ltCMatrix", "dtCMatrix",
      function(from) new("dtCMatrix", i = from@i, p = from@p,
                         x = rep(1, length(from@i)), uplo = from@uplo,
                         diag = from@diag,
                         Dim = from@Dim, Dimnames = from@Dimnames))

setMethod("image", "ltCMatrix",
          function(x, ...) {
              x <- as(as(x, "dtCMatrix"), "dgTMatrix")
              callGeneric()
          })

setMethod("t", signature(x = "ltCMatrix"),
          function(x) .Call("ltCMatrix_trans", x),
          valueClass = "ltCMatrix")
back to top