SCM

SCM Repository

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

Diff of /pkg/R/Rsparse.R

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

pkg/R/dgRMatrix.R revision 1733, Sat Jan 20 15:24:54 2007 UTC pkg/R/Rsparse.R revision 1734, Tue Jan 23 16:05:53 2007 UTC
# Line 1  Line 1 
1  #### Sparse Matrices in Compressed row-oriented format  #### Sparse Matrices in Compressed row-oriented format
2  ####                               --- "R"  ####                               --- "R"
3    
4    ### ``mainly for completeness'' --- we *do* favour Csparse
5    ##    - - - - - - - - - - - -   hence only "minimal" methods here !
6    ##  see also ./SparseM-conv.R
7    
8  ### contains = "dMatrix"  ### contains = "dMatrix"
9    
10  setAs("dgRMatrix", "dgTMatrix",  setAs("dgRMatrix", "dgTMatrix",
# Line 44  Line 48 
48  setAs("dgCMatrix", "dgRMatrix", .to.dgR)  setAs("dgCMatrix", "dgRMatrix", .to.dgR)
49  setAs("dgTMatrix", "dgRMatrix", .to.dgR)  setAs("dgTMatrix", "dgRMatrix", .to.dgR)
50    
51    setAs("dsCMatrix", "dsRMatrix",
52          function(from) new("dsRMatrix", Dim = dim(from), Dimnames = .M.DN(from),
53                  p = from@p, j = from@i, x = from@x,
54                  uplo = if (from@uplo == "U") "L" else "U"))
55    
56    setAs("dtCMatrix", "dtRMatrix",
57          function(from) new("dtRMatrix", Dim = dim(from), Dimnames = .M.DN(from),
58                  p = from@p, j = from@i, x = from@x, diag = from@diag,
59                  uplo = if (from@uplo == "U") "L" else "U"))
60    
61    
62  ##setAs("dgRMatrix", "dgeMatrix",  ##setAs("dgRMatrix", "dgeMatrix",

Legend:
Removed from v.1733  
changed lines
  Added in v.1734

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