data(scoredDataset1, package="RNAither")
data(pValVec1, package="RNAither")
##for details on the generation of pValVec1 and scoredDataset1, see the example of the Ttest function linked above.
scoredHits1 <- hitselectionPval(scoredDataset1, pValVec1, "SigIntensity", "Hits1", 0.1,
"GeneName", "pvalue_testfile1.txt")
hitVector1 <- scoredHits1[[2]]
gseaTable <- gseaAnalysis(hitVector1, "biological_process")
Run the code above in your browser using DataLab