tests/testthat/test-cscore.R
In bimberlabinternal/CellMembrane: A package with high-level wrappers and pipelines for single-cell RNA-seq tools
context("scRNAseq")
test_that("CSCore works as expected", {
seuratObj <- suppressWarnings(Seurat::UpdateSeuratObject(readRDS('../testdata/seuratOutput.rds')))
csResults <- RunCsCore(seuratObj, genes_selected = Seurat::VariableFeatures(seuratObj))
expect_equal(length(csResults), 51)
expect_equal(paste0(sort(csResults[[40]]), collapse = ','), "ANKRD27,C10orf90,CDK5RAP2,CENPT,COA1,CRTC1,ELMSAN1,ENSMMUG00000005997,LACTB,MAP3K14,NTN4,PRICKLE3,PRPF40B,RNFT1,S100PBP,SLC25A42,STK38L,SYNE2,TOP3B,USP9Y,WDR11")
})
bimberlabinternal/CellMembrane documentation built on Oct. 16, 2024, 6:53 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("scRNAseq")
test_that("CSCore works as expected", {
seuratObj <- suppressWarnings(Seurat::UpdateSeuratObject(readRDS('../testdata/seuratOutput.rds')))
csResults <- RunCsCore(seuratObj, genes_selected = Seurat::VariableFeatures(seuratObj))
expect_equal(length(csResults), 51)
expect_equal(paste0(sort(csResults[[40]]), collapse = ','), "ANKRD27,C10orf90,CDK5RAP2,CENPT,COA1,CRTC1,ELMSAN1,ENSMMUG00000005997,LACTB,MAP3K14,NTN4,PRICKLE3,PRPF40B,RNFT1,S100PBP,SLC25A42,STK38L,SYNE2,TOP3B,USP9Y,WDR11")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.