## Not run:
#
# #get example data
# dataset<-GetExampleData("dataset")
# class.labels<-GetExampleData("class.labels")
# controlcharactor<-GetExampleData("controlcharactor")
#
# #get the data for background set of edges
# edgesbackgrand<-GetEdgesBackgrandData()
#
# #get the edge sets of pathways
# pathwayEdge.db<-GetPathwayEdgeData()
#
# #calculate the differential correlation score for edges
# EdgeCorScore<-calEdgeCorScore(dataset, class.labels, controlcharactor,edgesbackgrand)
#
# #identify dysregulated pathways by using the function ESEA.Main
# #Results<-ESEA.Main(EdgeCorScore,pathwayEdge.db)
# Results<-GetExampleData("PathwayResult")
#
# #obtain the detail results of genes for a significant pathway
# PathwayResult<-Results[[2]][1]
#
# #Plot running edge enrichment score for the pathway result
# PlotRunEnrichment(EdgeCorScore,PathwayResult,weighted.score.type = 1)
#
# ## End(Not run)
Run the code above in your browser using DataLab