The R Project SVN R

Rev

Rev 69213 | Rev 88267 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 69213 Rev 70274
Line 12... Line 12...
12 
stopifnot(logical() == a & a)
 12 
stopifnot(logical() == a & a)
13 
 
 13 
 
14 
removeClass("A")
 14 
removeClass("A")
15 
 
 15 
 
16 
### Find inherited group methods:
 16 
### Find inherited group methods:
17 
if(require(Matrix)) {
 17 
if(require(Matrix)) { ## , lib.loc = .Library
18 
    sm <- selectMethod("-", c("dgCMatrix", "numeric"))# direct match with "Arith"
 18 
    sm <- selectMethod("-", c("dgCMatrix", "numeric"))# direct match with "Arith"
19 
    s2 <- selectMethod("-", c("dtCMatrix", "numeric"))# ambiguity match with "Arith"
 19 
    s2 <- selectMethod("-", c("dtCMatrix", "numeric"))# ambiguity match with "Arith"
20 
    stopifnot(sm@generic == "Arith", s2@generic == "Arith")
 20 
    stopifnot(sm@generic == "Arith", s2@generic == "Arith")
21 
}
 21 
}
22 
## was not ok in R 2.14.x
 22 
## was not ok in R 2.14.x