Images/Images_readme.R

In sysbio-curie/ACSNMineR: Gene Enrichment Analysis from ACSN Maps or GMT Files

# Generate images
q<-represent_enrichment(enrichment = list(SampleA = enrichment_test, 
                                          SampleB = enrichment_test[1:3,]), 
                        plot = "heatmap", scale = "log")
ggsave("Images/Heatmap.png")

q<-represent_enrichment(enrichment = enrichment_test,scale = "reverselog",
                                          sample_name = "test",plot = "bar")

ggsave("Images/barplot.png")

# Generate table
knitr::kable(enrichment(genes_test,
           min_module_size = 10, 
           threshold = 0.05,
           maps = list(cellcycle = ACSNEnrichment::ACSN_maps$CellCycle)))