###load gse analysis results for separate gene-to-phenotype score
data(gseResultsSep)
###combine enrichment score results using geometric mean
gseABS.sep.geoMean <- combineGSE(gseResultsSep, method="geometricMean")
###combine enrichment score results using maximum value
gseABS.sep.max <- combineGSE(gseResultsSep, method="max")
Run the code above in your browser using DataLab