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 1331, Sat Jul 22 17:59:53 2006 UTC revision 1347, Mon Aug 7 08:47:43 2006 UTC
# Line 95  Line 95 
95  stopifnot(class(x.x) == "dsCMatrix",  stopifnot(class(x.x) == "dsCMatrix",
96            class(x.x. <- round(x.x / 10000)) == "dsCMatrix")            class(x.x. <- round(x.x / 10000)) == "dsCMatrix")
97  head(x.x.) # Note the *non*-structural 0's printed as "0"  head(x.x.) # Note the *non*-structural 0's printed as "0"
98    if(paste(R.version$major, R.version$minor, sep=".") >= "2.4")
99        tail(x.x., -2) # the last two lines
100    
101  lx.x <- as(x.x, "lsCMatrix") # FALSE only for "structural" 0  lx.x <- as(x.x, "lsCMatrix") # FALSE only for "structural" 0
102  if(FALSE) { ## FIXME: needs coercion  "lsCMatrix" to "lgTMatrix"  if(FALSE) { ## FIXME: needs coercion  "lsCMatrix" to "lgTMatrix"

Legend:
Removed from v.1331  
changed lines
  Added in v.1347

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