SCM

SCM Repository

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

Diff of /pkg/R/lgCMatrix.R

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

revision 1447, Fri Aug 25 20:38:36 2006 UTC revision 1448, Sat Aug 26 03:29:36 2006 UTC
# Line 2  Line 2 
2    
3  ### contains = "lsparseMatrix"  ### contains = "lsparseMatrix"
4    
5  setMethod("%*%", signature(x = "lgCMatrix", y = "lgCMatrix"),  ## Can use CsparseMatrix methods for all of these
           function(x, y)  
           .Call(lgCMatrix_lgCMatrix_mm, x, y),  
           valueClass = "lgCMatrix")  
   
 setMethod("t", signature(x = "lgCMatrix"),  
           function(x) .Call(lgCMatrix_trans, x),  
           valueClass = "lgCMatrix")  
   
 setMethod("crossprod", signature(x = "lgCMatrix", y = "missing"),  
           function(x, y = NULL)  
           .Call(lgCMatrix_crossprod, x, TRUE, NULL),  
           valueClass = "lsCMatrix")  
   
 setMethod("tcrossprod", signature(x = "lgCMatrix", y = "missing"),  
           function(x, y = NULL)  
           .Call(lgCMatrix_crossprod, x, FALSE, NULL),  
           valueClass = "lsCMatrix")  
   
 setMethod("diag", signature(x = "lgCMatrix"),  
           function(x, nrow, ncol = n) .Call(lgCMatrix_diag, x))  
6    
7    ## setMethod("%*%", signature(x = "lgCMatrix", y = "lgCMatrix"),
8    ##           function(x, y)
9    ##           .Call(lgCMatrix_lgCMatrix_mm, x, y),
10    ##           valueClass = "lgCMatrix")
11    
12    ## setMethod("t", signature(x = "lgCMatrix"),
13    ##           function(x) .Call(lgCMatrix_trans, x),
14    ##           valueClass = "lgCMatrix")
15    
16    
17    ## setMethod("diag", signature(x = "lgCMatrix"),
18    ##        function(x, nrow, ncol = n) .Call(lgCMatrix_diag, x))
19    
20    ## setMethod("crossprod", signature(x = "lgCMatrix", y = "missing"),
21    ##        function(x, y = NULL)
22    ##           .Call(lgCMatrix_crossprod, x, TRUE, NULL),
23    ##        valueClass = "lsCMatrix")
24    
25    ## setMethod("tcrossprod", signature(x = "lgCMatrix", y = "missing"),
26    ##        function(x, y = NULL)
27    ##           .Call(lgCMatrix_crossprod, x, FALSE, NULL),
28    ##        valueClass = "lsCMatrix")
29    
30  setAs("lgCMatrix", "dgCMatrix",  setAs("lgCMatrix", "dgCMatrix",
31        function(from) new("dgCMatrix", i = from@i, p = from@p,        function(from) new("dgCMatrix", i = from@i, p = from@p,

Legend:
Removed from v.1447  
changed lines
  Added in v.1448

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