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:         }
  
      /// Creates a gene set enrichment result 
      let createGseaResult ontologyTerm numberOfDEsInBin numberInBin totalNumberOfDE totalUnivers pValue = 
          {OntologyTerm = ontologyTerm; NumberOfDEsInBin = numberOfDEsInBin; NumberInBin = numberInBin; TotalNumberOfDE = totalNumberOfDE; TotalUnivers = totalUnivers; PValue = pValue}
  
  
      /// Splites OntologyEntry with conacat TermId
  
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
  