anchor.diff:          |> Seq.map (fun (oTerm,values) -> 
               let numberOfDEsInBin,numberInBin = countDE values
               let pValue = CalcHyperGeoPvalue numberOfDEsInBin numberInBin totalUnivers totalNumberOfDE _splitPvalueThreshold
  -            createGseaResult oTerm numberOfDEsInBin numberInBin totalNumberOfDE totalUnivers pValue)
  +            createGseaResult oTerm values numberOfDEsInBin numberInBin totalNumberOfDE totalUnivers pValue)
   
   
       // #######################################################    
  
positive.code:         |> Seq.map (fun (oTerm,values) -> 
              let numberOfDEsInBin,numberInBin = countDE values
              let pValue = CalcHyperGeoPvalue numberOfDEsInBin numberInBin totalUnivers totalNumberOfDE _splitPvalueThreshold
              createGseaResult oTerm numberOfDEsInBin numberInBin totalNumberOfDE totalUnivers pValue)
  
  
  
negative.code:         {Id = id; OntologyTerm = ontologyTerm; GroupIndex = groupIndex; Item = item}
  
      /// Represents a gene set enrichment result 
      type GseaResult<'a> = {
          OntologyTerm     : string
          ItemsInBin       : seq<OntologyItem<'a>>
          NumberOfDEsInBin : int
          NumberInBin      : int    
          TotalNumberOfDE  : int
  