SCM

SCM Repository

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

Diff of /pkg/R/dgCMatrix.R

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

revision 686, Thu Mar 31 21:19:35 2005 UTC revision 687, Fri Apr 1 07:36:09 2005 UTC
# Line 21  Line 21 
21            .Call("matrix_to_csc", from)            .Call("matrix_to_csc", from)
22        })        })
23    
24    setAs("dgeMatrix", "dgCMatrix", # dgeM* is "double":
25          function(from) .Call("matrix_to_csc", as(from, "matrix")))
26    
27    
28  setMethod("crossprod", signature(x = "dgCMatrix", y = "missing"),  setMethod("crossprod", signature(x = "dgCMatrix", y = "missing"),
29            function(x, y = NULL) .Call("csc_crossprod", x),            function(x, y = NULL) .Call("csc_crossprod", x),
30            valueClass = "dsCMatrix")            valueClass = "dsCMatrix")
# Line 37  Line 41 
41  ##          function(x, y = NULL) callGeneric(x, as.matrix(y)),  ##          function(x, y = NULL) callGeneric(x, as.matrix(y)),
42  ##          valueClass = "dgeMatrix")  ##          valueClass = "dgeMatrix")
43    
44    ## setMethod("crossprod", signature(x = "dgCMatrix", y = "numeric"),
45    ##           function(x, y = NULL) .Call("csc_matrix_crossprod", x, as.matrix(y)))
46    
47  setMethod("tcrossprod", signature(x = "dgCMatrix"),  setMethod("tcrossprod", signature(x = "dgCMatrix"),
48            function(x) .Call("csc_tcrossprod", x))            function(x) .Call("csc_tcrossprod", x))
49    

Legend:
Removed from v.686  
changed lines
  Added in v.687

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