1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
test_SparseArraySeed_getters <- function()
{
aind1 <- aind2 <- rbind(c(2,4,3), c(2,1,3), c(5,4,3), c(5,3,3),
c(5,4,1), c(5,1,1), c(5,4,2), c(5,4,1))
nzdata <- seq_len(nrow(aind1)) / 10
sas <- SparseArraySeed(5:3, aind1, nzdata)
checkIdentical(dim(sas), 5:3)
checkIdentical(length(sas), 60L)
storage.mode(aind2) <- "integer"
checkIdentical(aind(sas), aind2)
checkIdentical(nzdata(sas), nzdata)
}
test_dense2sparse_and_sparse2dense <- function()
{
m <- matrix(c(5:-2, rep.int(c(0L, 99L), 11)), ncol=6)
sas <- dense2sparse(m)
checkTrue(is(sas, "SparseArraySeed"))
checkIdentical(dim(sas), dim(m))
checkIdentical(sparse2dense(sas), m)
}
|
