# Load data
data(geneSets)
data(geneAnnotation)
fs <- firmaAnalysis(useToyData=TRUE)
gs <- readGeneSummaries(useToyData=TRUE)
tra <- aberrantExonUsage(1.0, fs)
# Calculate correlation in other gene sets
crs <- geneSetCorrelation(geneSets, geneAnnotation, gs, tra, 50)
Run the code above in your browser using DataLab