SCM

SCM Repository

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

Diff of /pkg/R/Tsparse.R

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

revision 1269, Thu May 18 06:43:29 2006 UTC revision 1270, Thu May 18 06:44:43 2006 UTC
# Line 151  Line 151 
151                a <- .Call("Csparse_crossprod", x, trans = FALSE, triplet = TRUE,                a <- .Call("Csparse_crossprod", x, trans = FALSE, triplet = TRUE,
152                           PACKAGE = "Matrix")                           PACKAGE = "Matrix")
153                switch(substr(class(a)[1], 1, 1),                switch(substr(class(a)[1], 1, 1),
154                       "d" = new("dsCMatrix", i = a@i, p = a@p, x = a@x,                       "d" ={ new("dsCMatrix", i = a@i, p = a@p, x = a@x,
155                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "U",                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "U",
156                       factors = list()),                                  factors = list()) },
157                       "l" = new("lsCMatrix", i = a@i, p = a@p,                       "l" ={ new("lsCMatrix", i = a@i, p = a@p,
158                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "U",                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "U",
159                       factors = list()))                                  factors = list())})
160            })            })
161    
162  setMethod("tcrossprod", signature(x = "TsparseMatrix", y = "missing"),  setMethod("tcrossprod", signature(x = "TsparseMatrix", y = "missing"),
# Line 164  Line 164 
164                a <- .Call("Csparse_crossprod", x, trans = TRUE, triplet = TRUE,                a <- .Call("Csparse_crossprod", x, trans = TRUE, triplet = TRUE,
165                           PACKAGE = "Matrix")                           PACKAGE = "Matrix")
166                switch(substr(class(a)[1], 1, 1),                switch(substr(class(a)[1], 1, 1),
167                       "d" = new("dsCMatrix", i = a@i, p = a@p, x = a@x,                       "d" ={ new("dsCMatrix", i = a@i, p = a@p, x = a@x,
168                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",
169                       factors = list()),                                  factors = list()) },
170                       "l" = new("lsCMatrix", i = a@i, p = a@p,                       "l" ={ new("lsCMatrix", i = a@i, p = a@p,
171                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",                       Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",
172                       factors = list()))                                  factors = list()) })
173            })            })

Legend:
Removed from v.1269  
changed lines
  Added in v.1270

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