# Needs GSEABase pacakge from Bioconductor
if (requireNamespace("GSEABase", quietly = TRUE)) {
library("GSEABase")
gs <- GeneSet()
gs
tidy(gs)
fl <- system.file("extdata", "Broad.xml", package="GSEABase")
gs2 <- getBroadSets(fl) # actually, a list of two gene sets
TS <- tidy(gs2)
dim(TS)
sets(TS)
}
Run the code above in your browser using DataLab