# SCM Repository

[matrix] Diff of /pkg/tests/bind.Rout.save
 [matrix] / pkg / tests / bind.Rout.save

# Diff of /pkg/tests/bind.Rout.save

revision 1330, Fri Jul 21 08:28:18 2006 UTC revision 1331, Sat Jul 22 17:59:53 2006 UTC
# Line 1  Line 1
1
2  R : Copyright 2006, The R Foundation for Statistical Computing  R : Copyright 2006, The R Foundation for Statistical Computing
3  Version 2.3.1 Patched (2006-07-08 r38523)  Version 2.3.1 Patched (2006-07-13 r38676)
4  ISBN 3-900051-07-0  ISBN 3-900051-07-0
5
6  R is free software and comes with ABSOLUTELY NO WARRANTY.  R is free software and comes with ABSOLUTELY NO WARRANTY.
# Line 52  Line 52
52  A 1 4 7 10 10 40 70 100  A 1 4 7 10 10 40 70 100
53  B 2 5 8 11 20 50 80 110  B 2 5 8 11 20 50 80 110
54  C 3 6 9 12 30 60 90 120  C 3 6 9 12 30 60 90 120
>
> ## TODO: m1+m2 "warning" - improve dimnames() automatism
55  > stopifnot(identical(cbind (m2, m1+m2) -> R,  > stopifnot(identical(cbind (m2, m1+m2) -> R,
56  +                     cbind2(m2, m1+m2))); R  +                     cbind2(m2, m1+m2))); R
57  3 x 8 Matrix of class "dgeMatrix"  3 x 8 Matrix of class "dgeMatrix"
# Line 184  Line 182
182  [6,] 2 . 1 . . 2 . 1 . .  [6,] 2 . 1 . . 2 . 1 . .
183  > diag(m4)  > diag(m4)
184  [1] 0 0 1 0 1 2  [1] 0 0 1 0 1 2
>
185  > for(i in 1:6) {  > for(i in 1:6) {
186  +     m4[i, i ] <- i  +     m4[i, i ] <- i
187  +     m4[i,i+1] <- 0  +     m4[i,i+1] <- 0
# Line 201  Line 198
198  >  >
199  >  >
200  > cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''  > cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''
201  Time elapsed:  9.135 0.137 9.722 0 0  Time elapsed:  10.76 0.18 11.43 0 0
202  >  >

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