# NOT RUN {
data(PhyloExpressionSetExample)
set.seed(123)
test_set <- sample(PhyloExpressionSetExample[ , 2],1000)
E.Result <- EnrichmentTest(ExpressionSet = PhyloExpressionSetExample,
test.set = test_set ,
measure = "log-foldchange")
# get the log-fold change table
E.Result$enrichment.matrix
# get P-values for the enrichment significance for each Phylostratum
E.Result$p.values
# }
Run the code above in your browser using DataLab