SCM

SCM Repository

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

Diff of /pkg/tests/simple.R

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

revision 1617, Fri Oct 6 15:42:12 2006 UTC revision 1618, Fri Oct 6 15:44:01 2006 UTC
# Line 179  Line 179 
179  ij <- function(a) a@i + ncol(a) * a@j  ij <- function(a) a@i + ncol(a) * a@j
180  stopifnot(all(ij(A) %in% ij(B)))  stopifnot(all(ij(A) %in% ij(B)))
181    
182    l3 <- upper.tri(matrix(,3,3))
183    (c3 <- as(l3, "CsparseMatrix"))
184    stopifnot(validObject(c3), is(c3, "CsparseMatrix"), is(c3, "triangularMatrix"))
185    
186  cat('Time elapsed: ', proc.time(),'\n') # "stats"  cat('Time elapsed: ', proc.time(),'\n') # "stats"

Legend:
Removed from v.1617  
changed lines
  Added in v.1618

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge