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
|
#### Logical Sparse Triangular Matrices in Compressed column-oriented format
setAs("ltCMatrix", "matrix",
function(from) as(as(from, "lgCMatrix"), "matrix"))
setAs("matrix", "ltCMatrix",
function(from) {
if(!is.logical(from)) storage.mode(from) <- "logical"
.Call(matrix_to_Csparse, from, "ltCMatrix")
})
setAs("ltCMatrix", "lgCMatrix",
function(from) copyClass(diagU2N(from), "lgCMatrix",
c("i", "p", "x", "Dim", "Dimnames")))
setAs("ltCMatrix", "ltTMatrix",
function(from) .Call(Csparse_to_Tsparse, from, TRUE))
setAs("ltCMatrix", "dMatrix", # < instead of "dtCMatrix"
function(from) new("dtCMatrix", i = from@i, p = from@p,
x = as.double(from@x), uplo = from@uplo,
diag = from@diag,
Dim = from@Dim, Dimnames = from@Dimnames))
setAs("lgCMatrix", "ltCMatrix", # to triangular {needed in triu() }
function(from) as(as(as(from, "lgTMatrix"), "ltTMatrix"), "ltCMatrix"))
## setAs("ltCMatrix", "generalMatrix",
## function(from) ......)
## setMethod("t", signature(x = "ltCMatrix"),
## function(x) .Call(ltCMatrix_trans, x),
## valueClass = "ltCMatrix")
|
