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']]
# Get background gene cout:
bg_gene_count <- nrow( Bai_empty_expr_mat )
# Generate a vector containing the number of contents of
# the 2x2 contingency table:
counts.v <- gsIntersectCounts( gs1 = M29994.gs,
gs2 = M40825.gs,
bg_size = bg_gene_count )
Run the code above in your browser using DataLab