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 1268, Wed May 17 17:42:09 2006 UTC revision 1269, Thu May 18 06:43:29 2006 UTC
# Line 70  Line 70 
70    
71  stopifnot(identical(mC[7,  drop = FALSE],  stopifnot(identical(mC[7,  drop = FALSE],
72                      mC[7,, drop = FALSE]))                      mC[7,, drop = FALSE]))
73  mT[,c(2,4)]  validObject(print(mT[,c(2,4)]))
74  stopifnot(all.equal(mT[1,], mm[1,]))  stopifnot(all.equal(mT[2,], mm[2,]),
75              ## row or column indexing in combination with t() :
76              identical(mT[2,], t(mT)[,2]),
77              identical(mT[-2,], t(t(mT)[,-2])),
78              identical(mT[c(2,5),], t(t(mT)[,c(2,5)]))
79              )
80  assert.EQ.mat(mT[4,, drop = FALSE], mm[4,, drop = FALSE])  assert.EQ.mat(mT[4,, drop = FALSE], mm[4,, drop = FALSE])
81  stopifnot(identical3(mm[,1], mC[,1], mT[,1]),  stopifnot(identical3(mm[,1], mC[,1], mT[,1]),
82            identical3(mm[3,], mC[3,], mT[3,]),            identical3(mm[3,], mC[3,], mT[3,]),

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

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