library(GSNA)
# Get the background of observable genes set from
# expression data:
gene_background <- toupper(rownames( Bai_empty_expr_mat ))
# Using the sample gene set collection **Bai_gsc.tmod**,
# generate a gene presence-absence matrix filtered for the
# ref.background of observable genes:
presence_absence.mat <-
makeFilteredGenePresenceAbsenceMatrix( ref.background = gene_background,
geneSetCollection = Bai_gsc.tmod )
jaccard.mat <- scoreJaccardMatrix_C( presence_absence.mat )
Run the code above in your browser using DataLab