anchor.diff:          }
   
       /// 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}
  +    let createGseaResult ontologyTerm desInBin numberOfDEsInBin numberInBin totalNumberOfDE totalUnivers pValue = 
  +        {OntologyTerm = ontologyTerm;ItemsInBin = desInBin; NumberOfDEsInBin = numberOfDEsInBin; 
  +            NumberInBin = numberInBin; TotalNumberOfDE = totalNumberOfDE; TotalUnivers = totalUnivers; PValue = pValue}
   
   
       /// Splites OntologyEntry with conacat TermId
  
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:         else
                  nan
          
         
      // #######################################################    
      //  functional term enrichment is calculated according to following publication
      //  http://bioinformatics.oxfordjournals.org/cgi/content/abstract/23/4/401
  