anchor.diff:      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.Heatmap(data,ColNames=colnames,RowNames=(label |> 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 ***)
  
positive.code:     <| data <| 4
  
  let clusteredIrisData =
      Array.zip lable data
      |> Array.sortBy (fun (l,dataPoint) -> fst (kmeansResult.Classifier dataPoint)) 
      |> Array.unzip
      |> fun (l,d) -> 
  
negative.code:     HierarchicalClustering.generate DistanceMetrics.euclidean Linker.wardLwLinker data
      |> HierarchicalClustering.flattenHClust
  
  let hlabel =    
      htmp
      |> Seq.map (fun c -> label.[HierarchicalClustering.getClusterId c])
  
  let hdata =    
      htmp
  