The R Project SVN R-packages

Rev

Rev 1321 | Rev 1771 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1321 Rev 1529
Line 5... Line 5...
5 
setAs("dsCMatrix", "dgTMatrix",
 5 
setAs("dsCMatrix", "dgTMatrix",
6 
      function(from) .Call("dsCMatrix_to_dgTMatrix", from))
 6 
      function(from) .Call("dsCMatrix_to_dgTMatrix", from))
7 
 
 7 
 
8 
setAs("dsCMatrix", "dgeMatrix",
 8 
setAs("dsCMatrix", "dgeMatrix",
9 
      function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))
 9 
      function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))
- 
 
 10 
 
10 
setAs("dsCMatrix", "matrix",
 11 
setAs("dsCMatrix", "matrix",
11 
      function(from) as(as(from, "dgTMatrix"), "matrix"))
 12 
      function(from) as(as(from, "dgTMatrix"), "matrix"))
12 
 
 13 
 
- 
 
 14 
setAs("dsCMatrix", "lsCMatrix",
- 
 
 15 
      function(from) new("lsCMatrix", i = from@i, p = from@p, uplo = from@uplo,
- 
 
 16 
                         Dim = from@Dim, Dimnames = from@Dimnames))
- 
 
 17 
 
13 
if(FALSE) { ## << FIXME
 18 
if(FALSE) { ## << FIXME
14 
setAs("dsCMatrix", "dsTMatrix",
 19 
setAs("dsCMatrix", "dsTMatrix",
15 
      function(from) { }) ## < follow "csc_to_dgTMatrix" in ../src/dgTMatrix.c
 20 
      function(from) { }) ## < follow "csc_to_dgTMatrix" in ../src/dgTMatrix.c
16 
setAs("dsCMatrix", "dsyMatrix",
 21 
setAs("dsCMatrix", "dsyMatrix",
17 
      function(from) as(as(from, "dsTMatrix"), "dsyMatrix"))
 22 
      function(from) as(as(from, "dsTMatrix"), "dsyMatrix"))