anchor.diff:      |]
   
   let contrastMatrix = 
  -    [| [|1.0;-1.0;0.0;0.0;|] ; [|1.0;0.0;-1.0;0.0;|] ; [|1.0;0.;0.0;-1.0;|] ; 
  -    [|0.0;1.0;-1.0;0.0;|]    ; [|0.0;1.0;0.0;-1.0;|] ;
  +    [| 
  +    [|1.0;-1.0;0.0;0.0;|]
  +    [|1.0;0.0;-1.0;0.0;|]
  +    [|1.0;0.0;0.0;-1.0;|]
  +    [|0.0;1.0;-1.0;0.0;|]
  +    [|0.0;1.0;0.0;-1.0;|]
       [|0.0;0.0;1.0;-1.0;|]
       |]
   
  
positive.code: 
  Anova.oneWayAnova dmg
  
  
  //TukeyHSD contrastMatrixDmg dmg 
  // https://brownmath.com/stat/anova1.htm
  
  let dsd = 
      [|
       //[|7.;4.;6.;8.;6.;6.;2.;9.|];
       //[|5.;5.;3.;4.;4.;7.;2.;2.|];
       //[|2.;4.;7.;1.;2.;1.;5.;5.|] ; 
          [|64.; 72.; 68.; 77.; 56.; 95.;|] ;
          [|78.; 91.; 97.; 82.; 85.; 77.;|] ;
          [|75.; 93.; 78.; 71.; 63.; 76.;|] ;
          [|55.; 66.; 49.; 64.; 70.; 68.;|] ;   
      |]
  
  let contrastMatrixDsd = contrastMatrix //used in docs for "Anova"
  
  Anova.oneWayAnova dsd
  
  tukeyHSD contrastMatrixDsd dsd 
  
  
  let d1 = [159.;179.;100.;45.;384.;230.;100.;320.;80.;220.;320.;210.;]
  let d2 = [14.4;15.2;11.3;2.5;22.7;14.9;1.41;15.81;4.19;15.39;17.25;9.52; ]
      
  
  Testing.FisherHotelling.test d1 d2
  
  //Testing.Hays contrastMatrix 
  
  (**
  <a name="PvalueAdjust"></a>
  
negative.code: <a name="PostHoc"></a>
  ##PostHoc
  
  This test uses the data shown for ANOVA.
  *)
  
  
  