The R Project SVN R-packages

Rev

Rev 3787 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3787 Rev 4095
Line 6... Line 6...
6 
      function(from) as(as(from, "dtCMatrix"), "ltCMatrix"))
 6 
      function(from) as(as(from, "dtCMatrix"), "ltCMatrix"))
7 
 
 7 
 
8 
setAs("ltCMatrix", "lgCMatrix",
 8 
setAs("ltCMatrix", "lgCMatrix",
9 
      function(from) copyClass(from, "lgCMatrix"))
 9 
      function(from) copyClass(from, "lgCMatrix"))
10 
 
 10 
 
- 
 
 11 
setAs("ltCMatrix", "ltTMatrix",
- 
 
 12 
      function(from) .Call(Csparse_to_Tsparse, from, TRUE))
- 
 
 13 
 
11 
setAs("ltCMatrix", "dMatrix", # < instead of "dtCMatrix"
 14 
setAs("ltCMatrix", "dMatrix", # < instead of "dtCMatrix"
12 
      function(from) new("dtCMatrix", i = from@i, p = from@p,
 15 
      function(from) new("dtCMatrix", i = from@i, p = from@p,
13 
                         x = as.double(from@x), uplo = from@uplo,
 16 
                         x = as.double(from@x), uplo = from@uplo,
14 
                         diag = from@diag,
 17 
                         diag = from@diag,
15 
                         Dim = from@Dim, Dimnames = from@Dimnames))
 18 
                         Dim = from@Dim, Dimnames = from@Dimnames))
16 
 
 19 
 
- 
 
 20 
setAs("lgCMatrix", "ltCMatrix", # to triangular {needed in triu() }
- 
 
 21 
      function(from) as(as(as(from, "lgTMatrix"), "ltTMatrix"), "ltCMatrix"))
- 
 
 22 
 
- 
 
 23 
 
17 
## setAs("ltCMatrix", "generalMatrix",
 24 
## setAs("ltCMatrix", "generalMatrix",
18 
##       function(from) ......)
 25 
##       function(from) ......)
19 
 
 26 
 
20 
setMethod("image", "ltCMatrix",
 27 
setMethod("image", "ltCMatrix",
21 
          function(x, ...) {
 28 
          function(x, ...) {