tests/testthat/test-scSEGIndex.R

In scMerge: scMerge: Merging multiple batches of scRNA-seq data

context("Testing scSEGIndex function")
## Loading example data
data('example_sce', package = 'scMerge')
## subsetting genes to illustrate usage.
exprs_mat = SummarizedExperiment::assay(example_sce, 'logcounts')[1:110, 1:20]
set.seed(1)
scSEGIndex(exprs_mat = exprs_mat)
scSEGIndex(exprs_mat = exprs_mat, cell_type = example_sce$cellTypes[1:20])