# NOT RUN {
# }
# NOT RUN {
#Generate a vector of pvalues
set.seed(159)
m<- 100
pvalues <- runif(m,0,1)^5
featureIDs <- as.character(1:m)
# perform a self-contained test for all features
settest(pvalues, featureIDs, testype = "selfcontained")
# create a random pathway of size 60
randset=as.character(c(sample(1:m, 60)))
# perform a competitive test for the random pathway
settest(pvalues, featureIDs, set=randset, testype = "competitive")
# perform a unified null hypothesis test against 0.2 for a set of size 50
settest(pvalues, featureIDs, set=randset, testype = "competitive", testvalue = 0.2 )
# }
Run the code above in your browser using DataLab