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 2186, Mon Apr 28 12:37:01 2008 UTC revision 2192, Thu May 1 08:21:47 2008 UTC
# Line 491  Line 491 
491            identical(m. < mc, as(!ge, "sparseMatrix")),            identical(m. < mc, as(!ge, "sparseMatrix")),
492            identical(ne., drop0(ne1)))            identical(ne., drop0(ne1)))
493    
494    d6 <- Diagonal(6)
495    ii <- c(1:2, 4:5)
496    d6[cbind(ii,ii)] <- 7*ii
497    stopifnot(is(d6, "ddiMatrix"), identical(d6, Diagonal(x=c(7*1:2,1,7*4:5,1))))
498    
499  (M3 <- Matrix(upper.tri(matrix(, 3, 3)))) # ltC; indexing used to fail  (M3 <- Matrix(upper.tri(matrix(, 3, 3)))) # ltC; indexing used to fail
500  T3 <- as(M3, "TsparseMatrix")  T3 <- as(M3, "TsparseMatrix")
501  stopifnot(identical(drop(M3), M3),  stopifnot(identical(drop(M3), M3),

Legend:
Removed from v.2186  
changed lines
  Added in v.2192

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