## Not run:
#
# #######################################
#
#
# ##########get example data
# risk<-GetExampleData(dataset="prostate")
#
# ###########calculate the CGNB score
# pss<-getPSS(risk ,plot=F)
# CGNBscore<-pss[,"CGNB"]
# names(CGNBscore)<-rownames(pss)
# ##########print the CGNB score of some metabolites to screen
# head(CGNBscore)
# #identify dysregulated pathways
# anncpdpre<-identifypathway(risk,pss,pathType="KEGG",method="MPINet",annlim=1,bglim=6)
# #convert ann to data.frame
# result<-printGraph(anncpdpre,pathType="KEGG",method="MPINet")
# head(result)
#
#
#
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab