data(sampleSetGeneSummaries)
gs <- sampleSetGeneSummaries
fs <- firmaAnalysis(useToyData=TRUE)
tra <- aberrantExonUsage(1.0, fs)
# calculate correlation between splicing factor expression and aberrant
# exon usage
data(splicingFactors)
corr <- correlation(splicingFactors, gs, tra)
Run the code above in your browser using DataLab