SCM

SCM Repository

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

Diff of /pkg/R/dtTMatrix.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 24  Line 24 
24    
25  setAs("dtTMatrix", "dtCMatrix",  setAs("dtTMatrix", "dtCMatrix",
26        function(from) {        function(from) {
27            gC <- .Call("dtTMatrix_as_dgCMatrix", from, PACKAGE = "Matrix")            gC <- .Call(dtTMatrix_as_dgCMatrix, from)
28            new("dtCMatrix", Dim = gC@Dim, Dimnames = gC@Dimnames, p = gC@p,            new("dtCMatrix", Dim = gC@Dim, Dimnames = gC@Dimnames, p = gC@p,
29                i = gC@i, x = gC@x, uplo = from@uplo, diag = from@diag)                i = gC@i, x = gC@x, uplo = from@uplo, diag = from@diag)
30        })        })
# Line 47  Line 47 
47    
48  ## Conversion to dense storage is first to a dtrMatrix  ## Conversion to dense storage is first to a dtrMatrix
49  setAs("dtTMatrix", "dtrMatrix",  setAs("dtTMatrix", "dtrMatrix",
50        function(from) .Call("dtTMatrix_as_dtrMatrix", from, PACKAGE = "Matrix"))        function(from) .Call(dtTMatrix_as_dtrMatrix, from))
51    
52  setAs("dtTMatrix", "matrix",  setAs("dtTMatrix", "matrix",
53        function(from) as(as(from, "dtrMatrix"), "matrix"))        function(from) as(as(from, "dtrMatrix"), "matrix"))

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