library(GSNA)
# Get the background of observable genes set from
# expression data:
gene_background <- toupper(rownames( Bai_empty_expr_mat ))
# Generate a gene set collection as a list of vectors from
# **Bai_gsc.tmod**, included in sample data:
Bai.gsc <- tmod2gsc( Bai_gsc.tmod )
# Using the sample gene set collection **Bai_gsc.tmod**,
# generate a gene set collection filtered for the bg of
# observable genes:
Bai.filt.gsc <- gsnFilterGeneSetCollectionList( bg = gene_background,
geneSetCollection = Bai.gsc )
Run the code above in your browser using DataLab