|
...
|
...
|
@@ -48,12 +48,12 @@ test_that("all back-ends work", {
|
|
48
|
48
|
expect_equal(res1, res4)
|
|
49
|
49
|
|
|
50
|
50
|
# batch jobs
|
|
51
|
|
- if(require(BatchJobs)) {
|
|
|
51
|
+ if(require(batchtools)) {
|
|
52
|
52
|
res5 <- scone(obj, imputation=list(none=impute_null),
|
|
53
|
53
|
scaling=list(none=identity, uq=UQ_FN, deseq=DESEQ_FN),
|
|
54
|
54
|
k_ruv=3, k_qc=2, adjust_bio="force", adjust_batch="yes",
|
|
55
|
55
|
evaluate=TRUE, run=TRUE, return_norm = "in_memory",
|
|
56
|
|
- eval_kclust=2, bpparam=BiocParallel::BatchJobsParam(2))
|
|
|
56
|
+ eval_kclust=2, bpparam=BiocParallel::BatchtoolsParam(2))
|
|
57
|
57
|
expect_equal(res1, res5)
|
|
58
|
58
|
}
|
|
59
|
59
|
|
