The R Project SVN R-packages

Rev

Rev 4904 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4904 Rev 4963
Line 57... Line 57...
57 
 
 57 
 
58 
 
 58 
 
59 
## Cholesky
 59 
## Cholesky
60 
chk.matrix(ch <- chol(cm))
 60 
chk.matrix(ch <- chol(cm))
61 
chk.matrix(ch2 <- chol(as(cm, "dsyMatrix")))
 61 
chk.matrix(ch2 <- chol(as(cm, "dsyMatrix")))
62 
#not yet{FIXME}: chk.matrix(ch3 <- chol(as(cm, "dgeMatrix")))
 62 
chk.matrix(ch3 <- chol(as(cm, "dgeMatrix")))
63 
stopifnot(all.equal(as(ch, "matrix"), as(ch2, "matrix")))
 63 
stopifnot(is.all.equal3(as(ch, "matrix"), as(ch2, "matrix"), as(ch3, "matrix")))
64 
 
 - 
 
65 
### Very basic	triangular matrix stuff
 64 
### Very basic	triangular matrix stuff
66 
 
 65 
 
67 
assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'
 66 
assertError( new("dtrMatrix", Dim = c(2,2), x= 1:4) )# double 'Dim'
68 
assertError( new("dtrMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'
 67 
assertError( new("dtrMatrix", Dim = as.integer(c(2,2)), x= 1:4) )# int 'x'
69 
## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):
 68 
## This caused a segfault (before revision r1172 in ../src/dtrMatrix.c):