% STAT 332 Exam Scores, Final is 200 pts
Y=[93   93  191
  65   91  170
  79   89  125
  74   72  120
  88   90  161
  87   89  174
  74   75  166
  93   92  172
  96   96  185
  93   80  175
  48   60  145
  73   82  174
 100   97  195
  57   89  137
  84   94  183
  83   69  138
  92   94  182];
[N,d]=size(Y);
X=ones(N,1);
C=[1 0 0; 0 1 0; 0 0 1; 1 1 0]';
C
Normal_Dist=0;
m=[1 2]';
Cov_Mat=0;
alpha=0.05;

[lam,Gam,CI_eigvalue,CI_ratio,CI_eigvalue_log,CI_ratio_log] = ...
         pca_infer(X,Y,C,m,Normal_Dist,Cov_Mat,alpha);

display_pc_infer