Gadget to run both DGE and GSEA
fdgeseaGadget(
x,
gdb = NULL,
title = "DGE and GSEA",
height = 800,
width = 1000,
...
)
if (FALSE) {
gdb <- sparrow::getMSigGeneSetDb("h", "human", id.type = "entrez")
efds <- FacileData::exampleFacileDataSet()
xs <- FacileData::filter_samples(efds, indication == "CRC")
fdgeseaGadget(xs, gdb)
}