library(GSNA)
# We can extract 2 gene sets from the sample data:
Bai.gsc <- tmod2gsc( Bai_gsc.tmod )
M29994.gs = Bai.gsc[['M29994']]
M40825.gs = Bai.gsc[['M40825']]
# Find the intersection:
intersect.gs <- gsIntersect( gs1 = M29994.gs, gs2 = M40825.gs )
Run the code above in your browser using DataLab