Gadget to run both DGE and GSEA

fdgeseaGadget(
  x,
  gdb = NULL,
  title = "DGE and GSEA",
  height = 800,
  width = 1000,
  ...
)

Examples

if (FALSE) {
gdb <- sparrow::getMSigGeneSetDb("h", "human", id.type = "entrez")
efds <- FacileData::exampleFacileDataSet()
xs <- FacileData::filter_samples(efds, indication == "CRC")
fdgeseaGadget(xs, gdb)
}