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 1279, Tue May 23 08:01:11 2006 UTC revision 1280, Tue May 23 08:01:44 2006 UTC
# Line 4  Line 4 
4    
5  setMethod("%*%", signature(x = "lgCMatrix", y = "lgCMatrix"),  setMethod("%*%", signature(x = "lgCMatrix", y = "lgCMatrix"),
6            function(x, y)            function(x, y)
7            .Call("lgCMatrix_lgCMatrix_mm", x, y, PACKAGE = "Matrix"),            .Call(lgCMatrix_lgCMatrix_mm, x, y),
8            valueClass = "lgCMatrix")            valueClass = "lgCMatrix")
9    
10  setMethod("t", signature(x = "lgCMatrix"),  setMethod("t", signature(x = "lgCMatrix"),
11            function(x) .Call("lgCMatrix_trans", x, PACKAGE = "Matrix"),            function(x) .Call(lgCMatrix_trans, x),
12            valueClass = "lgCMatrix")            valueClass = "lgCMatrix")
13    
14  setMethod("crossprod", signature(x = "lgCMatrix", y = "missing"),  setMethod("crossprod", signature(x = "lgCMatrix", y = "missing"),
15            function(x, y = NULL)            function(x, y = NULL)
16            .Call("lgCMatrix_crossprod", x, TRUE, NULL, PACKAGE = "Matrix"),            .Call(lgCMatrix_crossprod, x, TRUE, NULL),
17            valueClass = "lsCMatrix")            valueClass = "lsCMatrix")
18    
19  setMethod("tcrossprod", signature(x = "lgCMatrix", y = "missing"),  setMethod("tcrossprod", signature(x = "lgCMatrix", y = "missing"),
20            function(x, y = NULL)            function(x, y = NULL)
21            .Call("lgCMatrix_crossprod", x, FALSE, NULL, PACKAGE = "Matrix"),            .Call(lgCMatrix_crossprod, x, FALSE, NULL),
22            valueClass = "lsCMatrix")            valueClass = "lsCMatrix")
23    
24  setAs("lgCMatrix", "dgCMatrix",  setAs("lgCMatrix", "dgCMatrix",
# Line 28  Line 28 
28    
29  setAs("lgCMatrix", "lgTMatrix",  setAs("lgCMatrix", "lgTMatrix",
30        function(from) new("lgTMatrix", i = from@i,        function(from) new("lgTMatrix", i = from@i,
31                           j = .Call("Matrix_expand_pointers", from@p, PACKAGE = "Matrix"),                           j = .Call(Matrix_expand_pointers, from@p),
32                           Dim = from@Dim, Dimnames = from@Dimnames))                           Dim = from@Dim, Dimnames = from@Dimnames))
33    
34  setAs("lgCMatrix", "matrix",  setAs("lgCMatrix", "matrix",
35        function(from) .Call("lcsc_to_matrix", from, PACKAGE = "Matrix"))        function(from) .Call(lcsc_to_matrix, from))
36    
37    
38  setMethod("image", "lgCMatrix",  setMethod("image", "lgCMatrix",

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 Powered By FusionForge