/* x8_2.sas */
/* Purpose:  */

title1 'Example 8.2.';

data a (type=corr);
  length _type_ $ 8 _name_ $ 8;
  input _type_ _name_ x1 x2 x3 x4;
cards;
CORR X1  1.00  0.32  0.41 -0.31
CORR X2  0.32  1.00  0.68 -0.38
CORR X3  0.41  0.68  1.00 -0.36
CORR X4 -0.31 -0.38 -0.36  1.00
;

proc print;
title2 'List of data. Note: special SAS-dataset (type=corr)';

proc princomp data=a;
title2 'Compute eigenvalues and eigenvectors.';

run;