context("scRNAseq")
test_that("Cell cycle gene data OK", {
expect_equal(length(cc.genes), 97)
expect_equal(length(g2m.genes.orig), 200)
})
test_that("CD genes data OK", {
expect_equal(nrow(cdGenes), 394)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.