SCM

SCM Repository

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

Diff of /pkg/R/dgRMatrix.R

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

revision 677, Mon Mar 28 14:03:32 2005 UTC revision 1037, Fri Nov 11 14:57:22 2005 UTC
# Line 3  Line 3 
3  ### contains = "dMatrix"  ### contains = "dMatrix"
4    
5  setAs("dgRMatrix", "dgTMatrix",  setAs("dgRMatrix", "dgTMatrix",
6        function(from) .Call("compressed_to_dgTMatrix", from, FALSE))        function(from) .Call("compressed_to_dgTMatrix", from, FALSE, PACKAGE = "Matrix"))
7    
8  ##setAs("dgRMatrix", "matrix",  ##setAs("dgRMatrix", "matrix",
9  ##      function(from) .Call("csc_to_matrix", from))  ##      function(from) .Call("csc_to_matrix", from, PACKAGE = "Matrix"))
10    
11  ##setAs("dgRMatrix", "dgeMatrix",  ##setAs("dgRMatrix", "dgeMatrix",
12  ##      function(from) .Call("csc_to_dgeMatrix", from))  ##      function(from) .Call("csc_to_dgeMatrix", from, PACKAGE = "Matrix"))
13    
14  ##setAs("matrix", "dgRMatrix",  ##setAs("matrix", "dgRMatrix",
15  ##      function(from) {  ##      function(from) {
16  ##          storage.mode(from) <- "double"  ##          storage.mode(from) <- "double"
17  ##          .Call("matrix_to_csc", from)  ##          .Call("matrix_to_csc", from, PACKAGE = "Matrix")
18  ##      })  ##      })
19    
20  ##setMethod("diag", signature(x = "dgRMatrix"),  ##setMethod("diag", signature(x = "dgRMatrix"),
21  ##          function(x = 1, nrow, ncol = n) .Call("csc_getDiag", x))  ##          function(x = 1, nrow, ncol = n) .Call("csc_getDiag", x, PACKAGE = "Matrix"))
22    
23  ## try to define for "Matrix" -- once and for all -- but that fails -- why?  ## try to define for "Matrix" -- once and for all -- but that fails -- why?
24  setMethod("dim", signature(x = "dgRMatrix"),  setMethod("dim", signature(x = "dgRMatrix"),
25            function(x) x@Dim, valueClass = "integer")            function(x) x@Dim, valueClass = "integer")
26    
27  ##setMethod("t", signature(x = "dgRMatrix"),  ##setMethod("t", signature(x = "dgRMatrix"),
28  ##          function(x) .Call("csc_transpose", x),  ##          function(x) .Call("csc_transpose", x, PACKAGE = "Matrix"),
29  ##          valueClass = "dgRMatrix")  ##          valueClass = "dgRMatrix")
30    
31  setMethod("image", "dgRMatrix",  setMethod("image", "dgRMatrix",

Legend:
Removed from v.677  
changed lines
  Added in v.1037

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