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 1361, Thu Aug 10 09:44:17 2006 UTC revision 1362, Thu Aug 10 09:44:55 2006 UTC
# Line 46  Line 46 
46    
47  g10 <- m [ m > 10 ]  g10 <- m [ m > 10 ]
48  stopifnot(18 == length(g10))  stopifnot(18 == length(g10))
49  if(paste(R.version$major, R.version$minor, sep=".") >= "2.3")  ## needs R >= 2.3.0 [Buglet in R(<= 2.2.1)'s possibleExtends()]:
     ## Buglet in R(<= 2.2.1)'s possibleExtends()  
50      stopifnot(10 == length(m[ m <= 10 ]))      stopifnot(10 == length(m[ m <= 10 ]))
51    
52    
# Line 95  Line 94 
94  stopifnot(class(x.x) == "dsCMatrix",  stopifnot(class(x.x) == "dsCMatrix",
95            class(x.x. <- round(x.x / 10000)) == "dsCMatrix")            class(x.x. <- round(x.x / 10000)) == "dsCMatrix")
96  head(x.x.) # Note the *non*-structural 0's printed as "0"  head(x.x.) # Note the *non*-structural 0's printed as "0"
97  if(paste(R.version$major, R.version$minor, sep=".") >= "2.4")  ## FIXME (once we require 2.4.x or higher):
98      tail(x.x., -2) # the last two lines  ##  tail(x.x., -2) # the last two lines
99    
100  lx.x <- as(x.x, "lsCMatrix") # FALSE only for "structural" 0  lx.x <- as(x.x, "lsCMatrix") # FALSE only for "structural" 0
101  if(FALSE) { ## FIXME: needs coercion  "lsCMatrix" to "lgTMatrix"  if(FALSE) { ## FIXME: needs coercion  "lsCMatrix" to "lgTMatrix"

Legend:
Removed from v.1361  
changed lines
  Added in v.1362

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