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 973, Fri Oct 7 20:15:08 2005 UTC revision 974, Fri Oct 7 20:17:46 2005 UTC
# Line 89  Line 89 
89  assert.EQ.mat(kt2, ktf, tol= 0)  assert.EQ.mat(kt2, ktf, tol= 0)
90  ## but kt1 and kt2, both "dgT" are different since entries are not ordered!  ## but kt1 and kt2, both "dgT" are different since entries are not ordered!
91    
92    ##--- symmetric -> pos.def. needs valid test:
93    if(FALSE) # this happily "works" but MM thinks it shouldn't:
94    assertError(as(as(Matrix(diag(5)-1), "dsyMatrix"), "dpoMatrix"))
95    
96    
97  ###-- logical sparse : ----------  ###-- logical sparse : ----------
98    
# Line 119  Line 123 
123  ij <- function(a) a@i + ncol(a) * a@j  ij <- function(a) a@i + ncol(a) * a@j
124  stopifnot(all(ij(A) %in% ij(B)))  stopifnot(all(ij(A) %in% ij(B)))
125    
126  proc.time()  
127    
128    
129    cat('Time elapsed: ', proc.time(),'\n') # "stats"
130    

Legend:
Removed from v.973  
changed lines
  Added in v.974

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