anchor.diff:      |]
   
   
  -hays contrastMatrixDmg dmg 
  -
  -// Tuky HSD
  -
  -dmg.[2] |> Seq.sum
  -
  +Testing.PostHoc.hays contrastMatrixDmg dmg 
   
   Anova.oneWayAnova dmg
   
  
positive.code:         [|55.; 66.; 49.; 64.; 70.; 68.;|] ;   
      |]
  
  let contrastMatrixDsd = contrastMatrix
      //[| 
       //[|1.0;-1.0;0.0;|] ; 
       //[|1.0;0.0;-1.0;|] ; 
       //[|0.0;1.0;-1.0;|]   
      //|]
  
  dsd |> Array.map Array.average   
     
  Anova.oneWayAnova dsd
  
  tukeyHSD contrastMatrixDsd dsd 
  
negative.code: ##Bartlett
  <a name="PostHoc"></a>
  ##PostHoc
  
  This test uses the data shown for Anova.
  *)
  
  
  open PostHoc
  
  Testing.PostHoc.hays contrastMatrix dataOneWay 
  
  
  //let m1 = Seq.mean dataOneWay.[0]
  