SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/tests/abIndex-tsts.R
ViewVC logotype

Diff of /pkg/Matrix/tests/abIndex-tsts.R

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

revision 2586, Sun Jul 25 02:32:06 2010 UTC revision 2661, Wed Apr 6 06:55:54 2011 UTC
# Line 106  Line 106 
106      }      }
107  ##O }  ##O }
108    
109    ## check the abIndex versions of  indDiag() and indTri() :
110    for(n in 1:7)
111        stopifnot(isValid(ii <- Matrix:::abIindDiag(n), "abIndex"),
112                  ii@kind == "rleDiff",
113                  Matrix:::indDiag(n) == as(ii, "numeric"))
114    
115    for(n in 0:7)
116     for(diag in c(TRUE,FALSE))
117      for(upper in c(TRUE,FALSE))
118        stopifnot(isValid(ii <- Matrix:::abIindTri(n, diag=diag,upper=upper), "abIndex"),
119                  Matrix:::indTri(n, diag=diag,upper=upper) == as(ii, "numeric"))
120    
121  cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"  cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"

Legend:
Removed from v.2586  
changed lines
  Added in v.2661

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