# \donttest{
library(RCPA)
affyFgseaResult <- loadData("affyFgseaResult")
agilFgseaResult <- loadData("agilFgseaResult")
RNASeqFgseaResult <- loadData("RNASeqFgseaResult")
consensusPAResult <- RCPA::runConsensusAnalysis(
list(affyFgseaResult, agilFgseaResult, RNASeqFgseaResult),
method = "weightedZMean"
)
print(head(consensusPAResult))
# }
Run the code above in your browser using DataLab