SCM

SCM Repository

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

Diff of /pkg/R/dgTMatrix.R

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

revision 1279, Tue May 23 08:01:11 2006 UTC revision 1280, Tue May 23 08:01:44 2006 UTC
# Line 1  Line 1 
1  setAs("dgTMatrix", "dgCMatrix",  setAs("dgTMatrix", "dgCMatrix",
2        function(from) .Call("dgTMatrix_to_dgCMatrix", from, PACKAGE = "Matrix")        function(from) .Call(dgTMatrix_to_dgCMatrix, from)
3        )        )
4    
5  setAs("dgTMatrix", "dgeMatrix",  setAs("dgTMatrix", "dgeMatrix",
6        function(from) .Call("dgTMatrix_to_dgeMatrix", from, PACKAGE = "Matrix")        function(from) .Call(dgTMatrix_to_dgeMatrix, from)
7        )        )
8    
9  setAs("dgTMatrix", "matrix",  setAs("dgTMatrix", "matrix",
10        function(from) .Call("dgTMatrix_to_matrix", from, PACKAGE = "Matrix")        function(from) .Call(dgTMatrix_to_matrix, from)
11        )        )
12    
13  setAs("dgeMatrix", "dgTMatrix",  setAs("dgeMatrix", "dgTMatrix",
# Line 151  Line 151 
151    
152  setMethod("crossprod", signature(x = "dgTMatrix", y = "missing"),  setMethod("crossprod", signature(x = "dgTMatrix", y = "missing"),
153            function(x, y = NULL)            function(x, y = NULL)
154            .Call("csc_crossprod", as(x, "dgCMatrix"), PACKAGE = "Matrix"))            .Call(csc_crossprod, as(x, "dgCMatrix")))
155    
156  setMethod("crossprod", signature(x = "dgTMatrix", y = "matrix"),  setMethod("crossprod", signature(x = "dgTMatrix", y = "matrix"),
157            function(x, y = NULL)            function(x, y = NULL)
158            .Call("csc_matrix_crossprod", as(x, "dgCMatrix"), y, PACKAGE = "Matrix"))            .Call(csc_matrix_crossprod, as(x, "dgCMatrix"), y))
159    
160  ##setMethod("crossprod", signature(x = "dgTMatrix", y = "numeric"),  ##setMethod("crossprod", signature(x = "dgTMatrix", y = "numeric"),
161  ##          function(x, y = NULL)  ##          function(x, y = NULL)
162  ##          .Call("csc_matrix_crossprod", as(x, "dgCMatrix"), as.matrix(y), PACKAGE = "Matrix"))  ##          .Call(csc_matrix_crossprod, as(x, "dgCMatrix"), as.matrix(y)))
163    
164  setMethod("tcrossprod", signature(x = "dgTMatrix", y = "missing"),  setMethod("tcrossprod", signature(x = "dgTMatrix", y = "missing"),
165            function(x, y = NULL)            function(x, y = NULL)
166            .Call("csc_tcrossprod", as(x, "dgCMatrix"), PACKAGE = "Matrix"))            .Call(csc_tcrossprod, as(x, "dgCMatrix")))
167    
168  setMethod("image", "dgTMatrix",  setMethod("image", "dgTMatrix",
169            function(x,            function(x,
# Line 237  Line 237 
237    
238  setMethod("writeHB", signature(obj = "dgTMatrix"),  setMethod("writeHB", signature(obj = "dgTMatrix"),
239            function(obj, file, ...)            function(obj, file, ...)
240            .Call("Matrix_writeHarwellBoeing", obj, as.character(file), "DGT", PACKAGE = "Matrix"))            .Call(Matrix_writeHarwellBoeing, obj, as.character(file), "DGT"))
241    
242  setMethod("writeMM", signature(obj = "dgTMatrix"),  setMethod("writeMM", signature(obj = "dgTMatrix"),
243            function(obj, file, ...)            function(obj, file, ...)
244            .Call("Matrix_writeMatrixMarket", obj, as.character(file), "DGT", PACKAGE = "Matrix"))            .Call(Matrix_writeMatrixMarket, obj, as.character(file), "DGT"))

Legend:
Removed from v.1279  
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 University of Wisconsin - Madison Powered By FusionForge