The R Project SVN R-packages

Rev

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

Rev 5017 Rev 5028
Line 39... Line 39...
39 
m. <- matrix(c(0, 0, 2:0), 3, 5)
 39 
m. <- matrix(c(0, 0, 2:0), 3, 5)
40 
dimnames(m.) <- list(LETTERS[1:3], letters[1:5])
 40 
dimnames(m.) <- list(LETTERS[1:3], letters[1:5])
41 
(m0 <- m <- Matrix(m.))
 41 
(m0 <- m <- Matrix(m.))
42 
m@Dimnames[[2]] <- m@Dimnames[[1]]
 42 
m@Dimnames[[2]] <- m@Dimnames[[1]]
43 
## not valid anymore:
 43 
## not valid anymore:
44 
(val <- validObject(m, test=TRUE))
 44 
(val <- validObject(m, test=TRUE)); stopifnot(is.character(val))
45 
stopifnot(is.character(val))
 - 
 
46 
dm <- as(m0, "denseMatrix")
 45 
dm <- as(m0, "denseMatrix")
47 
stopifnot(identical(rcond(dm), rcond(as.matrix(dm))),
 46 
stopifnot(identical(rcond(dm), rcond(m.)),
48 
	  all.equal(rcond(dm), 0.4899474520656))
 47 
	  all.equal(rcond(dm), 0.4899474520656))
49 
rm(m)
 48 
rm(m)
50 
 
 49 
 
51 
###--  Sparse Triangular :
 50 
###--  Sparse Triangular :
52 
 
 51