# NOT RUN {
# }
# NOT RUN {
set.seed(159)
#generate random p-values with pseudo IDs
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")
# estimate the proportion of true discoveries among all m features
settdp(pvalues, featureIDs)
# create a random pathway of size 60
randset=as.character(c(sample(1:m, 60)))
# estimate the proportion of true discoveries in a random set of size 50
settdp(pvalues, featureIDs, set=randset)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab