anchor.diff:                  yield words }
   
                   
  -let lable,data =
  +let label,data =
       fromFileWithSep ',' (__SOURCE_DIRECTORY__ + "/data/irisData.csv")
       |> Seq.skip 1
       |> Seq.map (fun arr -> arr.[4], [| float arr.[0]; float arr.[1]; float arr.[2]; float arr.[3]; |])
  
positive.code:     HierarchicalClustering.generate DistanceMetrics.euclidean Linker.wardLwLinker data
      |> HierarchicalClustering.flattenHClust
  
  let hlable =    
      htmp
      |> Seq.map (fun c -> lable.[HierarchicalClustering.getClusterId c])
  
  let hdata =    
      htmp
  
negative.code:     <| data <| 4
  
  let clusteredIrisData =
      Array.zip label data
      |> Array.sortBy (fun (l,dataPoint) -> fst (kmeansResult.Classifier dataPoint)) 
      |> Array.unzip
      |> fun (l,d) -> 
  