# \donttest{
library(RCPA)
affyFgseaResult <- loadData("affyFgseaResult")
agilFgseaResult <- loadData("agilFgseaResult")
RNASeqFgseaResult <- loadData("RNASeqFgseaResult")
PAResults <- list(
"Affymetrix - GSE5281" = affyFgseaResult,
"Agilent - GSE61196" = agilFgseaResult,
"RNASeq - GSE153873" = RNASeqFgseaResult
)
commonPathways <- RCPA::getCommonPathways(PAResults)
print(head(commonPathways))
# }
Run the code above in your browser using DataLab