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 1725, Wed Jan 17 08:01:10 2007 UTC revision 1751, Tue Jan 30 17:41:02 2007 UTC
# Line 335  Line 335 
335            identical(m. < mc, as(!ge, "sparseMatrix")),            identical(m. < mc, as(!ge, "sparseMatrix")),
336            identical(ne., Matrix:::drop0(ne1)))            identical(ne., Matrix:::drop0(ne1)))
337    
338    (M3 <- Matrix(upper.tri(matrix(, 3, 3)))) # ltC; indexing used to fail
339    T3 <- as(M3, "TsparseMatrix")
340    stopifnot(identical(drop(M3), M3),
341              identical4(drop(M3[,2, drop = FALSE]), M3[,2, drop = TRUE],
342                         drop(T3[,2, drop = FALSE]), T3[,2, drop = TRUE]),
343              is(T3, "triangularMatrix"),
344              !is(T3[,2, drop=FALSE], "triangularMatrix")
345              )
346    
347  cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''  cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''

Legend:
Removed from v.1725  
changed lines
  Added in v.1751

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