SCM

SCM Repository

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

Diff of /pkg/tests/bind.R

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

revision 1330, Fri Jul 21 08:28:18 2006 UTC revision 1331, Sat Jul 22 17:59:53 2006 UTC
# Line 17  Line 17 
17                      cbind2(m1,100+m1))); R                      cbind2(m1,100+m1))); R
18  stopifnot(identical(cbind (m1, 10*m2) -> R,  stopifnot(identical(cbind (m1, 10*m2) -> R,
19                      cbind2(m1, 10*m2))); R                      cbind2(m1, 10*m2))); R
   
 ## TODO: m1+m2 "warning" - improve dimnames() automatism  
20  stopifnot(identical(cbind (m2, m1+m2) -> R,  stopifnot(identical(cbind (m2, m1+m2) -> R,
21                      cbind2(m2, m1+m2))); R                      cbind2(m2, m1+m2))); R
22    
# Line 51  Line 49 
49  (m2 <- cbind(m,m))  (m2 <- cbind(m,m))
50  (m4 <- rbind(m2,m2))  (m4 <- rbind(m2,m2))
51  diag(m4)  diag(m4)
   
52  for(i in 1:6) {  for(i in 1:6) {
53      m4[i, i ] <- i      m4[i, i ] <- i
54      m4[i,i+1] <- 0      m4[i,i+1] <- 0

Legend:
Removed from v.1330  
changed lines
  Added in v.1331

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