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: 
  
  let hierClusteredData = 
      let labels = hlabel |> Seq.mapi (fun i s -> sprintf "%s%i" s i)
      Chart.Heatmap(hdata,ColNames=colnames,RowNames=labels,Colorscale=colorscaleValue,Showscale=true)
      |> Chart.withMarginSize(Left=250.)
      |> Chart.withTitle "clustered iris data (hierarchical Clustering)"
  