R/getExample.R

In hanjunwei-lab/PAGI: The package can identify the dysregulated KEGG pathways based on global influence from the internal effect of pathways and crosstalk between pathways.

Defines functions getclass.labels getdataset initializePAGIExample

Documented in getclass.labels getdataset initializePAGIExample

initializePAGIExample<-function(){
   utils::data("ExampleData",package="PAGI")
   
}

getdataset<-function(){

if(!exists("ExampleData")) initializePAGIExample()

newdataset<-get("dataset",envir=ExampleData)

return(newdataset)
}

getclass.labels<-function(){

if(!exists("ExampleData")) initializePAGIExample()

newclass.labels<-get("class.labels",envir=ExampleData)

return(newclass.labels)
}