1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
context("ExperimentList assay methods work")
test_that("with arrays in an ExperimentList", {
A <- array(1:24, 4:2, dimnames =
list(letters[1:4], LETTERS[1:3], c("A", "B"))
)
se2 <- SummarizedExperiment(list(A=A))
exp1 <- ExperimentList(A=se2)
expect_true(validObject(exp1))
# assay should return assay,SummarizedExperiment-method
expect_true(is.array(assay(exp1)))
A <- array(1:24, 4:2, dimnames =
list(letters[1:4], LETTERS[1:3], c("A", "B"))
)
B <- matrix(1:12, ncol=3, dimnames = list(letters[1:4], LETTERS[1:3]))
se2 <- SummarizedExperiment(list(A=A, B=B))
exp1 <- ExperimentList(A=se2)
expect_warning(arr <- assays(exp1))
expect_true(is.array(arr[[1]]))
})
|
