## Not run:
#
# #######################################
#
# #get example data
# #### get the type 2 diabetes data set 1
# risk<-GetExampleData(dataset="diabetes1")
# #### integrate the non-equivalence of metabolites and the character of
# #### differential metabolites by the monotonic spline model
# pss<-getPSS(risk,plot=TRUE)
# #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")
# #print part of the results to screen
# head(result)
#
# result1<-printGraph(anncpdpre,pathType="KEGG",method="MPINet",detail=TRUE)
# #print part of the results to screen
# head(result1)
#
#
#
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab