object <- fgsea
alphaThreshold(object) <- 0.7
collection <- collectionNames(object)[[1L]]
args <- list(
object = object,
collection = collection
)
test_that("Upregulated gene sets", {
object <- do.call(
what = enrichedGeneSets,
args = c(args, direction = "up")
)
expect_type(object, "list")
})
test_that("Downregulated gene sets", {
object <- do.call(
what = enrichedGeneSets,
args = c(args, direction = "down")
)
expect_type(object, "list")
})
test_that("Enriched in both directions", {
object <- do.call(
what = enrichedGeneSets,
args = c(args, direction = "both")
)
expect_type(object, "list")
expect_named(
object = object,
expected = c(
"condition_B_vs_A",
"treatment_D_vs_C"
)
)
expect_type(object[[1L]], "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.