anchor.diff:                      let tmp = bootstrapBin binSize posWeightArr bootstrapIterations
                       (binSize,Distributions.Frequency.create (Distributions.Bandwidth.nrd0 tmp) tmp)
                   )
  -            |> Map.ofList
  +            |> Map.ofArray
               
           if verbose then printfn "bootstrapping negative test distributions for %i bins" negativeBinsizes.Length
           let negativeTestDistributions = 
  
positive.code:             let startTime = System.DateTime.Now
  
              positiveBinsizes
              |> List.mapi 
                  (fun i binSize ->
  
                      if verbose && (i % (positiveBinsizes.Length / 10) = 0 ) then
  
negative.code: 
          if verbose then printfn "starting SAILENT characterization"
  
          let groups = data |> Array.groupBy (fun x -> x.OntologyTerm)
          
          let absoluteTestTargets = 
              groups
              |> Array.map (fun (termName,tmp) ->   
                  termName,tmp.Length,tmp |> Array.sumBy (fun x -> abs x.Item))
              |> Array.filter (fun (termName,binSize,weightSum) -> binSize>0)
          
          let positiveTestTargets = 
              groups
              |> Array.map (fun (termName,tmp) ->   
                  let tmp = tmp |> Array.filter (fun ann -> ann.Item > 0.)
                  termName,tmp.Length,tmp |> Array.sumBy (fun x -> x.Item))
              |> Array.filter (fun (termName,binSize,weightSum) -> binSize>0)
          
          let negativeTestTargets = 
              groups
              |> Array.map (fun (termName,tmp) ->   
                  let tmp = tmp |> Array.filter (fun ann -> ann.Item < 0.)
                  termName,tmp.Length,tmp |> Array.sumBy (fun x -> x.Item))
              |> Array.filter (fun (termName,binSize,weightSum) -> binSize>0)
  
          let absoluteBinsizes = absoluteTestTargets |> Array.map (fun (_,binSize,_) -> binSize) |> Array.distinct
          let positiveBinsizes = positiveTestTargets |> Array.map (fun (_,binSize,_) -> binSize) |> Array.distinct
          let negativeBinsizes = negativeTestTargets |> Array.map (fun (_,binSize,_) -> binSize) |> Array.distinct
  
          let weightArr =     data        |> Array.map (fun ann -> ann.Item)
          let absWeightArr =  weightArr   |> Array.map abs
  