The R Project SVN R-packages

Rev

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

Rev 4366 Rev 4367
Line 44... Line 44...
44 
 
 44 
 
45 
 
 45 
 
46 
A <- Matrix(c(1,0,3,0,0,5), 10, 10, sparse = TRUE) # warning about [6] vs [10]
 46 
A <- Matrix(c(1,0,3,0,0,5), 10, 10, sparse = TRUE) # warning about [6] vs [10]
47 
(fname <- file.path(tempdir(), "kk.mm"))
 47 
(fname <- file.path(tempdir(), "kk.mm"))
48 
writeMM(A, fname)
 48 
writeMM(A, fname)
49 
validObject(B  <- readMM(fname))
 49 
(B  <- readMM(fname))
- 
 
 50 
validObject(B)
50 
Bc <- as(B, "CsparseMatrix")
 51 
Bc <- as(B, "CsparseMatrix")
51 
identical(A, Bc)
 52 
stopifnot(identical(A, Bc))