anchor.diff:              let startTime = System.DateTime.Now
   
               positiveBinsizes
  -            |> List.mapi 
  +            |> Array.mapi 
                   (fun i binSize ->
   
                       if verbose && (i % (positiveBinsizes.Length / 10) = 0 ) then
  
positive.code: 
          loop 1 []
  
      let private getBins (term:string) (cons:OntologyItem<float> array) =
          [for ann in cons do 
              if ann.OntologyTerm = term then yield ann
          ]
      
      let private getNegativeBins (term:string) (cons:OntologyItem<float> array) =
          [for ann in cons do 
              if ann.OntologyTerm = term && ann.Item<0. then yield ann
          ]
      
      let private getPositiveBins (term:string) (cons:OntologyItem<float> array) =
          [for ann in cons do 
              if ann.OntologyTerm = term && ann.Item>0. then yield ann
          ]
  
      let private getEmpiricalPvalue (testDistributions: Map<int,Map<float,int>>) (weightSum:float) (binSize:int) =
          match Map.tryFind binSize testDistributions with
          |Some dist ->   let testDist = dist
                          float (testDist |> Map.fold (fun acc key value -> if abs key > abs weightSum then acc + value else acc) 0) / (float (testDist |> Map.fold (fun acc key value -> acc + value) 0))
          |_ -> 10000000.
  
      let private assignPValues (testDistributions:Map<int,Map<float,int>>) (testTargets:(string*int*float)list)=
          testTargets 
          |> List.map (fun (name,binSize,weightSum) -> createSailentCharacterization name (getEmpiricalPvalue testDistributions weightSum binSize) binSize weightSum)
      
      ///utility function to prepare a dataset column for SAILENT characterization. The ontology map can be created by using the BioFSharp.BioDB module. 
      ///
  
negative.code:                     let tmp = bootstrapBin binSize posWeightArr bootstrapIterations
                      (binSize,Distributions.Frequency.create (Distributions.Bandwidth.nrd0 tmp) tmp)
                  )
              |> Map.ofArray
              
          if verbose then printfn "bootstrapping negative test distributions for %i bins" negativeBinsizes.Length
          let negativeTestDistributions = 
  