## Not run:
# library(BioNet)
# ##load p-values and phenotypes
# data("KcViab_PVals","KcViab_Data4Enrich")
# ##load Biogrid interactome for Drosophila Melanogaster
# data("Biogrid_DM_Interactome")
# ##create a NWA (NetWork Analysis) object
# nwa <- new("NWA", pvalues=KcViab_PVals, phenotypes=KcViab_Data4Enrich,
# interactome=Biogrid_DM_Interactome)
# ##preprocessing
# nwa <- preprocess(nwa, species="Dm", initialIDs="Entrez.gene",
# keepMultipleMappings=TRUE, duplicateRemoverMethod="max")
# ##To create an interactome
# nwa <- interactome(nwa, species="Dm", reportDir="HTSanalyzerReport",
# genetic=FALSE)
# ##do network analysis
# nwa <- analyze(nwa, fdr=0.001, species="Dm")
# graphics.off()
# ##view identified subnetwork
# viewSubNet(nwa)
# ##report to html pages
# report(object=nwa, experimentName="NWATest", species="Dm", allSig=TRUE,
# keggGSCs="PW_KEGG", goGSCs=c("GO_BP", "GO_MF", "GO_CC"), reportDir=
# "NWATestReport")
# ##browse the index page of the report
# browseURL(file.path(getwd(), "NWATestReport", "index.html"))
# ## End(Not run)
Run the code above in your browser using DataLab