## Not run:
# library(BioNet)
# ##load pvalues (see the vignette for details about the preprocessing of
# ##this data set)
# data("KcViab_PVals")
# ##load interactome
# data("Biogrid_DM_Interactome")
# ##identify subnetworks
# enrichedSubNet <- networkAnalysis(pvalues=KcViab_PVals,
# graph=Biogrid_DM_Interactome, fdr=0.001, verbose=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab