/* x2_3.sas */
/* Purpose:  */

title1 'Example 2.3. (note: analysis on type=corr data)';

data a (type=corr);
  length _type_ $ 8 _name_ $ 8;
  input _type_ _name_ C3S C3A BLAINE STYRKE3 STYRKE28;
cards;
CORR C3S       1     -0.309  0.091  0.158  0.344
CORR C3A      -0.309  1      0.192  0.120 -0.166
CORR BLAINE    0.091  0.192  1      0.745  0.320
CORR STYRKE3   0.158  0.120  0.745  1      0.464
CORR STYRKE28  0.344 -0.166  0.320  0.464  1
;

proc print data=a;
title2 'List of data.';

proc princomp data=a;
  var C3S C3A STYRKE3 STYRKE28;
  partial BLAINE;
title2 'Compute partial correlations.';

run;