## 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()
#
# #calculate the differential correlation score for edges
# EdgeCorScore<-calEdgeCorScore(dataset, class.labels, controlcharactor, edgesbackgrand)
#
# #plot global edge correlation profile
# PlotGlobEdgeCorProfile(EdgeCorScore)
#
# ## End(Not run)
Run the code above in your browser using DataLab