anchor.diff:  
   
   let hierClusteredData = 
  -    let labels = hlable |> Seq.mapi (fun i s -> sprintf "%s%i" s i)
  +    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)"
  
positive.code:     StyleParam.Colorscale.Electric //Custom [(0.0,"#3D9970");(1.0,"#001f3f")]
      
  let dataChart = 
      Chart.Heatmap(data,ColNames=colnames,RowNames=(lable |> Seq.mapi (fun i s -> sprintf "%s%i" s i )),Colorscale=colorscaleValue,Showscale=true)
      |> Chart.withMarginSize(Left=250.)
      |> Chart.withTitle "raw iris data"
  (*** include-value:dataChart ***)
  
negative.code:     <| data <| 4
  
  let clusteredIrisData =
      Array.zip label data
      |> Array.sortBy (fun (l,dataPoint) -> fst (kmeansResult.Classifier dataPoint)) 
      |> Array.unzip
      |> fun (l,d) -> 
  