SCM

SCM Repository

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

Diff of /pkg/tests/validObj.R

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

revision 612, Fri Mar 4 17:35:12 2005 UTC revision 620, Sat Mar 5 21:22:08 2005 UTC
# Line 46  Line 46 
46            identical(dimnames(t(m1)), list(c.nam, NULL)),            identical(dimnames(t(m1)), list(c.nam, NULL)),
47            identical(m1, t(t(m1))))            identical(m1, t(t(m1))))
48    
49    ## an example of *named* dimnames
50    (t34N <- as(unclass(table(x = gl(3,4), y=gl(4,3))), "dgeMatrix"))
51    stopifnot(identical(dimnames(t34N),
52                        dimnames(as(t34N, "matrix"))))
53    
54  ## "dpo"  ## "dpo"
55  chk.matrix(cm <- crossprod(m1))  chk.matrix(cm <- crossprod(m1))

Legend:
Removed from v.612  
changed lines
  Added in v.620

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