SCM

SCM Repository

[matrix] Annotation of /pkg/R/ltCMatrix.R
ViewVC logotype

Annotation of /pkg/R/ltCMatrix.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1571 - (view) (download)

1 : bates 729 #### Logical Sparse Triangular Matrices in Compressed column-oriented format
2 :    
3 : maechler 946 setAs("ltCMatrix", "matrix",
4 : maechler 1201 function(from) as(as(from, "lgCMatrix"), "matrix"))
5 : maechler 1202 setAs("matrix", "ltCMatrix",
6 :     function(from) as(as(from, "dtCMatrix"), "ltCMatrix"))
7 : maechler 946
8 : maechler 1201 setAs("ltCMatrix", "lgCMatrix",
9 : maechler 1571 function(from) copyClass(from, "lgCMatrix"))
10 : maechler 1201
11 : maechler 1174 setAs("ltCMatrix", "dMatrix", # < instead of "dtCMatrix"
12 : bates 729 function(from) new("dtCMatrix", i = from@i, p = from@p,
13 : maechler 1571 x = as.double(from@x), uplo = from@uplo,
14 : bates 729 diag = from@diag,
15 :     Dim = from@Dim, Dimnames = from@Dimnames))
16 :    
17 : maechler 1174 ## setAs("ltCMatrix", "generalMatrix",
18 :     ## function(from) ......)
19 :    
20 : bates 729 setMethod("image", "ltCMatrix",
21 :     function(x, ...) {
22 :     x <- as(as(x, "dtCMatrix"), "dgTMatrix")
23 :     callGeneric()
24 :     })
25 :    
26 : bates 1448 ## setMethod("t", signature(x = "ltCMatrix"),
27 :     ## function(x) .Call(ltCMatrix_trans, x),
28 :     ## valueClass = "ltCMatrix")

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge