SCM

SCM Repository

[matrix] Diff of /pkg/R/dsCMatrix.R
ViewVC logotype

Diff of /pkg/R/dsCMatrix.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1200, Mon Jan 23 16:01:20 2006 UTC revision 1201, Mon Jan 23 16:04:12 2006 UTC
# Line 12  Line 12 
12    
13  setAs("dsCMatrix", "dgeMatrix",  setAs("dsCMatrix", "dgeMatrix",
14        function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))        function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))
15    setAs("dgeMatrix", "dsCMatrix",
16          function(from) as(as(from, "dsyMatrix"), "dsTMatrix"))
17    
18  setAs("dsCMatrix", "matrix",  setAs("dsCMatrix", "matrix",
19        function(from) as(as(from, "dgTMatrix"), "matrix"))        function(from) as(as(from, "dgTMatrix"), "matrix"))
# Line 25  Line 27 
27  setAs("dsCMatrix", "dgCMatrix",  setAs("dsCMatrix", "dgCMatrix",
28        function(from) .Call("sCMatrix_to_gCMatrix", from, PACKAGE = "Matrix"))        function(from) .Call("sCMatrix_to_gCMatrix", from, PACKAGE = "Matrix"))
29    
30    if(FALSE) # have 'C' version above
31  setAs("dsCMatrix", "dsTMatrix",  setAs("dsCMatrix", "dsTMatrix",
32        function(from)        function(from)
33        new("dsTMatrix", i = from@i,        new("dsTMatrix", i = from@i,
34            j = .Call("Matrix_expand_pointers", from@p, PACKAGE = "Matrix"),            j = .Call("Matrix_expand_pointers", from@p, PACKAGE = "Matrix"),
35            x = from@x, uplo = from@uplo, Dim@from@Dim, Dimnames = from@Dimnames)            x = from@x, uplo = from@uplo,
36              Dim= from@Dim, Dimnames = from@Dimnames)
37        )        )
38    
39  setAs("dsCMatrix", "dsyMatrix",  setAs("dsCMatrix", "dsyMatrix",

Legend:
Removed from v.1200  
changed lines
  Added in v.1201

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