## 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)
#
# #print the top ten results to screen
# EdgeCorScore[1:10]
#
# #Each element is the differential correlation score of an edge and whose name correspond to
# # the edge in the background set of edges.
#
# ## End(Not run)
Run the code above in your browser using DataLab