SCM

SCM Repository

[matrix] Diff of /pkg/tests/indexing.R
ViewVC logotype

Diff of /pkg/tests/indexing.R

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

revision 2517, Wed Feb 3 11:33:18 2010 UTC revision 2518, Thu Feb 4 17:09:33 2010 UTC
# Line 97  Line 97 
97  str(mC <- as(m, "dgCMatrix"))  str(mC <- as(m, "dgCMatrix"))
98  str(mT <- as(m, "dgTMatrix"))  str(mT <- as(m, "dgTMatrix"))
99  stopifnot(identical(mT, as(mC, "dgTMatrix")),  stopifnot(identical(mT, as(mC, "dgTMatrix")),
100            identical(mC, as(mT, "dgCMatrix")))            identical(mC, as(mT, "dgCMatrix")),
101              identical(mC[0,0], new("dgCMatrix")),
102              identical(mT[0,0], new("dgTMatrix")),
103              identical(mT[0,], new("dgTMatrix", Dim = c(0L,20L))),
104              identical(mT[,0], new("dgTMatrix", Dim = c(40L,0L))),
105              identical(mC[0,], as(mT[FALSE,], "dgCMatrix")),
106              identical(mC[,0], as(mT[,FALSE], "dgCMatrix")),
107              TRUE)
108    
109  mC[,1]  mC[,1]
110  mC[1:2,]  mC[1:2,]

Legend:
Removed from v.2517  
changed lines
  Added in v.2518

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