The R Project SVN R

Rev

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

Rev 60192 Rev 69213
Line 1... Line 1...
1 
## Tests for handling classes with same name & different package slots
 1 
## Tests for handling classes with same name & different package slots
2 
## First:  Can we define the classes and get the separate definitions
 2 
## First:  Can we define the classes and get the separate definitions
3 
## from the appropriate namespace or from the package slot in class(x)?
 3 
## from the appropriate namespace or from the package slot in class(x)?
4 
stopifnot(require(Matrix))
 4 
if(!require(Matrix)) q()
5 
 
 5 
 
6 
## from: example(chol)
 6 
## from: example(chol)
7 
sy2 <- new("dsyMatrix", Dim = as.integer(c(2,2)), x = c(14, NA,32,77))
 7 
sy2 <- new("dsyMatrix", Dim = as.integer(c(2,2)), x = c(14, NA,32,77))
8 
c2 <- chol(sy2)
 8 
c2 <- chol(sy2)
9 
 
 9