# NOT RUN {
data(VertexClassesSharedGenes_HFDvsChow)
VCSGs<-VertexClassesSharedGenes_HFDvsChow
HFD_vs_Chow_stackedBarplot<-getstackedGlobalBarplot_and_Grid(VCSGs,
Treat1 = "HFD",
Treat2 = "Chow",
xlb = "Metabolite-class-pairs",
max_pairsLegend=9)
plot(HFD_vs_Chow_stackedBarplot)
# }
Run the code above in your browser using DataLab