1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
context("asMatrix")
test_that("asMatrix", {
# empty
expect_equal(
asMatrixCols(list()),
matrix(0, nrow = 0L, ncol = 0L)
)
expect_equal(
asMatrixRows(list()),
matrix(0, nrow = 0L, ncol = 0L)
)
# normal
expect_equal(
asMatrixCols(list(c(1, 2), c(3, 3), c(4, 4))),
matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE)
)
expect_equal(
asMatrixRows(list(c(1, 2), c(3, 3), c(4, 4))),
matrix(c(1, 2, 3, 3, 4, 4), nrow = 3, ncol = 2, byrow = TRUE)
)
# names
expect_equal(
asMatrixCols(list(a = c(1, 2), b = c(3, 3), c = c(4, 4))),
setColNames(matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE), c("a", "b", "c"))
)
expect_equal(
asMatrixRows(list(a = c(1, 2), b = c(3, 3), c = c(4, 4))),
setRowNames(matrix(c(1, 2, 3, 3, 4, 4), nrow = 3, ncol = 2, byrow = TRUE), c("a", "b", "c"))
)
expect_equal(
asMatrixRows(list(a = c(x = 1, y = 2), b = c(3, 3), c = c(4, 4))),
setColNames(setRowNames(matrix(c(1, 2, 3, 3, 4, 4), nrow = 3, ncol = 2, byrow = TRUE),
c("a", "b", "c")), c("x", "y"))
)
# manually define rownames
expect_equal(
asMatrixCols(list(a = c(1, 2), b = c(3, 3), c = c(4, 4)), row.names = c("xx", "yy")),
setColNames(
setRowNames(matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE), c("xx", "yy")),
c("a", "b", "c"))
)
# manually define rownames, but use ints
expect_equal(
asMatrixCols(list(a = c(1, 2), b = c(3, 3), c = c(4, 4)), row.names = 1:2),
setColNames(
setRowNames(matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE), 1:2),
c("a", "b", "c"))
)
# manually define colnames
expect_equal(
asMatrixCols(list(a = c(1, 2), b = c(3, 3), c = c(4, 4)), col.names = c("xx", "yy", "zz")),
setColNames(
matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE),
c("xx", "yy", "zz"))
)
expect_equal(
asMatrixRows(list(a = c(1, 2), b = c(3, 3), c = c(4, 4)), col.names = c("xx", "yy")),
setRowNames(
setColNames(
matrix(c(1, 2, 3, 3, 4, 4), nrow = 3, ncol = 2, byrow = TRUE),
c("xx", "yy")
),
c("a", "b", "c")
)
)
# manually define colnames, but use ints
expect_equal(
asMatrixCols(list(a = c(1, 2), b = c(3, 3), c = c(4, 4)), col.names = 1:3),
setColNames(
matrix(c(1, 2, 3, 3, 4, 4), nrow = 2, ncol = 3, byrow = FALSE),
1:3)
)
})
|
