## Not run:
# library(BioNet)
# library(org.Dm.eg.db)
# ##load pvalues, interactome, and phenotype vector (see the vignette for
# ##preprocessing details about this dataset)
# data("KcViab_PVals", "Biogrid_DM_Interactome", "KcViab_Data4Enrich")
# ##Identify subnetworks
# enrichedSubNet <- networkAnalysis(pvalues=KcViab_PVals,
# graph=Biogrid_DM_Interactome, fdr=0.001, verbose=TRUE)
# dev.off()
# map <- as.list(get("org.Dm.egSYMBOL"))
# labels <- map[nodes(enrichedSubNet)]
# nwAnalysisResult <- list(subnw=enrichedSubNet, labels=labels)
# networkPlot(nwAnalysisOutput=nwAnalysisResult, phenotypeVector=
# KcViab_Data4Enrich)
# ## End(Not run)
Run the code above in your browser using DataLab