** This file demonstrates the procedure of using Minitab to perform 
** the Hotelling's T^2 test.

MTB > read 'T5-1.DAT' c1-c3
 Entering data from file: T5-1.DAT
      20 rows read.
 MTB > let k1 = mean(c1)
 MTB > let k2 = mean(c2)
 MTB > let k3 = mean(c3)
 MTB > let c1=c1-k1
 MTB > let c2=c2-k2
 MTB > let c3=c3-k3
 MTB > copy c1-c3 m1
 MTB > covariance c1-c3 m3
 MTB > copy k1 k2 k3 c4
 MTB > print c4
 
 C4      
    4.640   45.400    9.965 
 
 MTB > inverse m3 m4

 MTB > set c5
 DATA> 4 50 10
 DATA> end
 MTB > let c6=c4-c5

 MTB > copy c6 m5
 MTB > trans m5 m6
 MTB > multi m6 m4 m7
 MTB > multi m7 m5 m8
 ANSWER =         0.4869

 MTB > let k5=0.4869*20
 MTB > print k5
 
 K5       9.73800

 MTB > let k6=k5*17/(19*3)
 MTB > print k6
 
 K6       2.90432

 MTB > invcdf 0.9;
 SUBC> f 3 17.
     0.9000    2.4374