|
...
|
...
|
@@ -8,7 +8,7 @@ test_that("prepareexpDrugandDisease works", {
|
|
8
|
8
|
Drug_and_Disease <- prepareexpDrugandDisease(Cancer_cell_lines)
|
|
9
|
9
|
expect_true(is.list(Drug_and_Disease))
|
|
10
|
10
|
expDrug <<- Drug_and_Disease$expDrug
|
|
11
|
|
- expDisease <<- Drug_and_Disease$expDisease
|
|
|
11
|
+ expDisease <- Drug_and_Disease$expDisease
|
|
12
|
12
|
})
|
|
13
|
13
|
test_that("prepareCondDrugandDisease work", {
|
|
14
|
14
|
Cond <- prepareCondDrugandDisease(expDrug)
|
|
...
|
...
|
@@ -67,7 +67,7 @@ test_that("selectFeatureRect works", {
|
|
67
|
67
|
expect_true(is.list(index_all))
|
|
68
|
68
|
})
|
|
69
|
69
|
test_that(" prepareTensorfromList",{
|
|
70
|
|
- Z <<- prepareTensorfromList(CLL_data, 10L)
|
|
|
70
|
+ Z <- prepareTensorfromList(CLL_data, 10L)
|
|
71
|
71
|
expect_true(is.array(Z))
|
|
72
|
72
|
})
|
|
73
|
73
|
test_that("prepareTensorfromList works", {
|
