SCM Repository

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

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 !
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:  