# SCM Repository

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

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

revision 2256, Fri Sep 5 16:23:39 2008 UTC revision 2257, Mon Sep 8 20:27:22 2008 UTC
# Line 1  Line 1
1
2  R version 2.7.1 Patched (2008-07-15 r46067)  R version 2.7.2 Patched (2008-09-02 r46496)
3  Copyright (C) 2008 The R Foundation for Statistical Computing  Copyright (C) 2008 The R Foundation for Statistical Computing
4  ISBN 3-900051-07-0  ISBN 3-900051-07-0
5
# Line 501  Line 501
501
502   norm(m [5 x 5]) : 1  I  F  M  ok   norm(m [5 x 5]) : 1  I  F  M  ok
503   Summary:  ok   Summary:  ok
504    as(., "nMatrix") giving full nonzero-pattern: ok
505  2*m =?= m+m: ok  2*m =?= m+m: ok
506  m >= m for all: Warning: Ambiguous method selection for ">=", target "dgTMatrix#dgTMatrix" (the first of the signatures shown will be used)  m >= m for all: Warning: Ambiguous method selection for ">=", target "dgTMatrix#dgTMatrix" (the first of the signatures shown will be used)
507      sparseMatrix#sparseMatrix      sparseMatrix#sparseMatrix
# Line 537  Line 538
538  > checkMatrix(M)  > checkMatrix(M)
539   norm(m [5 x 5]) : 1  I  F  M  ok   norm(m [5 x 5]) : 1  I  F  M  ok
540   Summary:  ok   Summary:  ok
541    as(., "nMatrix") giving full nonzero-pattern: ok
542  2*m =?= m+m: ok  2*m =?= m+m: ok
543  m >= m for all: ok  m >= m for all: ok
544  m < m for none: ok  m < m for none: ok
# Line 561  Line 563
563
564   norm(m [5 x 5]) : 1  I  F  M  ok   norm(m [5 x 5]) : 1  I  F  M  ok
565   Summary:  ok   Summary:  ok
566    as(., "nMatrix") giving full nonzero-pattern: ok
567  2*m =?= m+m: Warning: Ambiguous method selection for "+", target "dtTMatrix#dtTMatrix" (the first of the signatures shown will be used)  2*m =?= m+m: Warning: Ambiguous method selection for "+", target "dtTMatrix#dtTMatrix" (the first of the signatures shown will be used)
568      sparseMatrix#sparseMatrix      sparseMatrix#sparseMatrix
569      dMatrix#dMatrix      dMatrix#dMatrix
# Line 595  Line 598
598  > checkMatrix(M)  > checkMatrix(M)
599   norm(m [5 x 5]) : 1  I  F  M  ok   norm(m [5 x 5]) : 1  I  F  M  ok
600   Summary:  ok   Summary:  ok
601    as(., "nMatrix") giving full nonzero-pattern: ok
602  2*m =?= m+m: identical  2*m =?= m+m: identical
603  m >= m for all: ok  m >= m for all: ok
604  m < m for none: ok  m < m for none: ok
# Line 611  Line 615
615  > T <- m2; T[1:3, 3] <- 10; checkMatrix(T)  > T <- m2; T[1:3, 3] <- 10; checkMatrix(T)
616   norm(m [5 x 5]) : 1  I  F  M  ok   norm(m [5 x 5]) : 1  I  F  M  ok
617   Summary:  ok   Summary:  ok
618    as(., "nMatrix") giving full nonzero-pattern: ok
619  2*m =?= m+m: identical  2*m =?= m+m: identical
620  m >= m for all: ok  m >= m for all: ok
621  m < m for none: ok  m < m for none: ok
# Line 766  Line 771
771  > checkMatrix(mt)  > checkMatrix(mt)
772   norm(m [5 x 7]) : 1  I  F  M  ok   norm(m [5 x 7]) : 1  I  F  M  ok
773   Summary:  ok   Summary:  ok
774    as(., "nMatrix") giving full nonzero-pattern: ok
775  2*m =?= m+m: ok  2*m =?= m+m: ok
776  m >= m for all: ok  m >= m for all: ok
777  m < m for none: ok  m < m for none: ok
# Line 838  Line 844
844  > checkMatrix(mc)  > checkMatrix(mc)
845   norm(m [5 x 7]) : 1  I  F  M  ok   norm(m [5 x 7]) : 1  I  F  M  ok
846   Summary:  ok   Summary:  ok
847    as(., "nMatrix") giving full nonzero-pattern: ok
848  2*m =?= m+m: identical  2*m =?= m+m: identical
849  m >= m for all: ok  m >= m for all: ok
850  m < m for none: ok  m < m for none: ok
# Line 944  Line 951
951
952   norm(m [4 x 4]) : 1  I  F  M  ok   norm(m [4 x 4]) : 1  I  F  M  ok
953   Summary:  ok   Summary:  ok
954    as(., "nMatrix") giving full nonzero-pattern: ok
955  2*m =?= m+m: ok  2*m =?= m+m: ok
956  m >= m for all: ok  m >= m for all: ok
957  m < m for none: ok  m < m for none: ok
# Line 967  Line 975
975
976   norm(m [4 x 4]) : 1  I  F  M  ok   norm(m [4 x 4]) : 1  I  F  M  ok
977   Summary:  ok   Summary:  ok
978    as(., "nMatrix") giving full nonzero-pattern: ok
979  2*m =?= m+m: Warning: Ambiguous method selection for "+", target "dsTMatrix#dsTMatrix" (the first of the signatures shown will be used)  2*m =?= m+m: Warning: Ambiguous method selection for "+", target "dsTMatrix#dsTMatrix" (the first of the signatures shown will be used)
980      sparseMatrix#sparseMatrix      sparseMatrix#sparseMatrix
981      dMatrix#dMatrix      dMatrix#dMatrix
# Line 989  Line 998
998  > checkMatrix(s.32  <- st[1:3,1:2]) ## 3 x 2 - and *not* dsTMatrix  > checkMatrix(s.32  <- st[1:3,1:2]) ## 3 x 2 - and *not* dsTMatrix
999   norm(m [3 x 2]) : 1  I  F  M  ok   norm(m [3 x 2]) : 1  I  F  M  ok
1000   Summary:  ok   Summary:  ok
1001    as(., "nMatrix") giving full nonzero-pattern: ok
1002  2*m =?= m+m: ok  2*m =?= m+m: ok
1003  m >= m for all: ok  m >= m for all: ok
1004  m < m for none: ok  m < m for none: ok
1005  > checkMatrix(s2.32 <- s2[1:3,1:2])  > checkMatrix(s2.32 <- s2[1:3,1:2])
1006   norm(m [3 x 2]) : 1  I  F  M  ok   norm(m [3 x 2]) : 1  I  F  M  ok
1007   Summary:  ok   Summary:  ok
1008    as(., "nMatrix") giving full nonzero-pattern: ok
1009  2*m =?= m+m: identical  2*m =?= m+m: identical
1010  m >= m for all: ok  m >= m for all: ok
1011  m < m for none: ok  m < m for none: ok
# Line 1015  Line 1026
1026  > st[I,I] <- 0; checkMatrix(st); stopifnot(is(st,"symmetricMatrix"))  > st[I,I] <- 0; checkMatrix(st); stopifnot(is(st,"symmetricMatrix"))
1027   norm(m [4 x 4]) : 1  I  F  M  ok   norm(m [4 x 4]) : 1  I  F  M  ok
1028   Summary:  ok   Summary:  ok
1029    as(., "nMatrix") giving full nonzero-pattern: ok
1030  2*m =?= m+m: suboptimal implementation of sparse 'symm. o symm.'  2*m =?= m+m: suboptimal implementation of sparse 'symm. o symm.'
1031  identical  identical
1032  m >= m for all: ok  m >= m for all: ok
# Line 1023  Line 1035
1035  > s2[I,I] <- 0; checkMatrix(s2); stopifnot(is(s2,"symmetricMatrix"))  > s2[I,I] <- 0; checkMatrix(s2); stopifnot(is(s2,"symmetricMatrix"))
1036   norm(m [4 x 4]) : 1  I  F  M  ok   norm(m [4 x 4]) : 1  I  F  M  ok
1037   Summary:  ok   Summary:  ok
1038    as(., "nMatrix") giving full nonzero-pattern: ok
1039  2*m =?= m+m: suboptimal implementation of sparse 'symm. o symm.'  2*m =?= m+m: suboptimal implementation of sparse 'symm. o symm.'
1040  identical  identical
1041  m >= m for all: ok  m >= m for all: ok
# Line 1176  Line 1189
1189  > cc <- capture.output(show(dLrg))# show(<diag>) used to error for large n  > cc <- capture.output(show(dLrg))# show(<diag>) used to error for large n
1190  >  >
1191  > cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"  > cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"
1192  Time elapsed:  15.748 0.132 15.923 0 0  Time elapsed:  17.213 0.248 23.227 0 0
1193  > ##  > ##
1194  > cat("checkMatrix() of all: \n---------\n")  > cat("checkMatrix() of all: \n---------\n")
1195  checkMatrix() of all:  checkMatrix() of all:
# Line 1331  Line 1344
1344      CsparseMatrix#CsparseMatrix      CsparseMatrix#CsparseMatrix
1345      lsparseMatrix#lsparseMatrix      lsparseMatrix#lsparseMatrix
1346
1347    Warning: Ambiguous method selection for "coerce", target "ddiMatrix#nMatrix" (the first of the signatures shown will be used)
1348        diagonalMatrix#nMatrix
1349        dMatrix#nMatrix
1350
1351  exploding       <diag>  o  <diag>  into dense matrix  exploding       <diag>  o  <diag>  into dense matrix
1352  dLrg  dLrg
1353  dm  dm
# Line 1425  Line 1442
1442  x.x.  x.x.
1443  suboptimal implementation of sparse 'symm. o symm.'  suboptimal implementation of sparse 'symm. o symm.'
1444  > cat('Time elapsed: ', proc.time() - .pt,'\n') # "stats"  > cat('Time elapsed: ', proc.time() - .pt,'\n') # "stats"
1445  Time elapsed:  12.537 0.044 12.715 0 0  Time elapsed:  14.312 0.084 17.814 0 0
1446  >  >
1447  > if(!interactive()) warnings()  > if(!interactive()) warnings()
1448  NULL  NULL

Legend:
 Removed from v.2256 changed lines Added in v.2257