anchor.diff:  Let's see what we get..
   *)
   
  -(*** define-output:heatmap ***)
  -createAlignmentMatrix sequences
  -|> Array2D.toJaggedArray
  -|> fun x -> Chart.Heatmap(data = x,RowNames = names, ColNames = names,Colorscale = StyleParam.Colorscale.Custom([0.,"#ffffff";1.,"#44546A"]),Name = "Relative pairwise alignment score")
  -(*** include-it:heatmap ***)
  +let heatMap =
  +    createAlignmentMatrix sequences
  +    |> Array2D.toJaggedArray
  +    |> fun x -> Chart.Heatmap(data = x,RowNames = names, ColNames = names,Colorscale = StyleParam.Colorscale.Custom([0.,"#ffffff";1.,"#44546A"]),Name = "Relative pairwise alignment score")
  +
  +(*** include-value:heatMap ***)
   
   (**
   We can see that the Copper-transporting ATPase 2 of mouse and rat are the most similar to each other, while the one of the sheep is relatively different.  
  
positive.code: 
  *)
  
  let mouse = EbiAPI.UniProteinDB.getProteinSeqFeature "Q64446"
  let rat = EbiAPI.UniProteinDB.getProteinSeqFeature "Q64535"
  let human = EbiAPI.UniProteinDB.getProteinSeqFeature "P35670"
  let sheep = EbiAPI.UniProteinDB.getProteinSeqFeature "Q9XT50"
  
  (**
  What we want to do now is getting an measure of phylogenetic relationship. We will do this by aligning the peptide-sequences with each other. For this we prepare the data and the alignment function.
  
negative.code: (**
  Now let's see what we get. The colored areas depict the cell membrane. The line graph represents the amino acids of the protein with their given hydrophobicity.
  *)
  let shapes = 
      Chart.Line ((Array.indexed hydrophobicityArr),Color = Colors.toHex false Colors.Table.Office.blue)
      |> Chart.withShapes(mouseLocInfo |> Seq.indexed |> Seq.choose createBackgroundShape)
      |> Chart.withX_AxisStyle("Sequenceindex")
      |> Chart.withY_AxisStyle("Hydrophobicity")
  
  (*** include-value:shapes ***)
  
  (**
  As you can see the hydrophobic areas overlap with the membrane areas.
  