# \donttest{
library(RCPA)
RNASeqDEExperiment <- loadData("RNASeqDEExperiment")
genesets <- loadData("genesets")
oraResult <- runGeneSetAnalysis(RNASeqDEExperiment, genesets,
method = "ora",
ORAArgs = list(pThreshold = 0.05))
print(head(oraResult))
fgseaResult <- runGeneSetAnalysis(RNASeqDEExperiment, genesets,
method = "fgsea",
FgseaArgs = list(minSize = 10, maxSize = Inf))
print(head(fgseaResult))
# }
Run the code above in your browser using DataLab