SCM

SCM Repository

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

Diff of /pkg/R/Rsparse.R

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

revision 1189, Fri Jan 20 18:13:39 2006 UTC revision 1280, Tue May 23 08:01:44 2006 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, PACKAGE = "Matrix"))        function(from) .Call(compressed_to_dgTMatrix, from, FALSE))
7    
8  ##setAs("dgRMatrix", "matrix",  ##setAs("dgRMatrix", "matrix",
9  ##      function(from) .Call("csc_to_matrix", from, PACKAGE = "Matrix"))  ##      function(from) .Call(csc_to_matrix, from))
10    
11  ##setAs("dgRMatrix", "dgeMatrix",  ##setAs("dgRMatrix", "dgeMatrix",
12  ##      function(from) .Call("csc_to_dgeMatrix", from, PACKAGE = "Matrix"))  ##      function(from) .Call(csc_to_dgeMatrix, from))
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, PACKAGE = "Matrix")  ##          .Call(matrix_to_csc, from)
18  ##      })  ##      })
19    
20  ##setMethod("diag", signature(x = "dgRMatrix"),  ##setMethod("diag", signature(x = "dgRMatrix"),
21  ##          function(x = 1, nrow, ncol = n) .Call("csc_getDiag", x, PACKAGE = "Matrix"))  ##          function(x = 1, nrow, ncol = n) .Call(csc_getDiag, x))
22    
23  ## try to define for "Matrix" -- once and for all -- but that fails -- why? __ FIXME __  ## try to define for "Matrix" -- once and for all -- but that fails -- why? __ FIXME __
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, PACKAGE = "Matrix"),  ##          function(x) .Call(csc_transpose, x),
29  ##          valueClass = "dgRMatrix")  ##          valueClass = "dgRMatrix")
30    
31  setMethod("image", "dgRMatrix",  setMethod("image", "dgRMatrix",

Legend:
Removed from v.1189  
changed lines
  Added in v.1280

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