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 921, Sat Sep 17 14:27:41 2005 UTC revision 922, Sun Sep 18 16:33:54 2005 UTC
# Line 3  Line 3 
3  ### contains = "dgCMatrix"  ### contains = "dgCMatrix"
4    
5  setAs("dsCMatrix", "dgTMatrix",  setAs("dsCMatrix", "dgTMatrix",
6        function(from) .Call("dsCMatrix_to_dgTMatrix", from))        function(from)
7          .Call("dsCMatrix_to_dgTMatrix", from, PACKAGE = "Matrix"))
8    
9  setAs("dsCMatrix", "dgeMatrix",  setAs("dsCMatrix", "dgeMatrix",
10        function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))        function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))
# Line 15  Line 16 
16        function(from) new("lsCMatrix", i = from@i, p = from@p, uplo = from@uplo,        function(from) new("lsCMatrix", i = from@i, p = from@p, uplo = from@uplo,
17                           Dim = from@Dim, Dimnames = from@Dimnames))                           Dim = from@Dim, Dimnames = from@Dimnames))
18    
19    setAs("dsCMatrix", "dgCMatrix",
20          function(from)
21          .Call("dsCMatrix_to_dgCMatrix", from, PACKAGE = "Matrix"))
22    
23  setAs("dsCMatrix", "dsTMatrix",  setAs("dsCMatrix", "dsTMatrix",
24        function(from)        function(from)
25        new("dsTMatrix", i = from@i,        new("dsTMatrix", i = from@i,
# Line 25  Line 30 
30  setAs("dsCMatrix", "dsyMatrix",  setAs("dsCMatrix", "dsyMatrix",
31        function(from) as(as(from, "dsTMatrix"), "dsyMatrix"))        function(from) as(as(from, "dsTMatrix"), "dsyMatrix"))
32    
33    setMethod("image", "dsCMatrix",
34              function(x, ...) image(as(x, "dgTMatrix"), ...))
35    
36  setMethod("solve", signature(a = "dsCMatrix", b = "dgeMatrix"),  setMethod("solve", signature(a = "dsCMatrix", b = "dgeMatrix"),
37            function(a, b, ...)            function(a, b, ...)
38            .Call("dsCMatrix_matrix_solve", a, b, TRUE),            .Call("dsCMatrix_matrix_solve", a, b, TRUE),

Legend:
Removed from v.921  
changed lines
  Added in v.922

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