/*  Final Exam Problem #2 */

options ls=78 ps=60 nodate;

data criminal (type=corr);
  input var $ headlen headbdth facebdth finglen forearm foot height;
  cards;
headlen  1.000 0.402 0.395 0.301 0.305 0.339 0.340
headbdth 0.402 1.000 0.618 0.150 0.135 0.206 0.183
facebdth 0.395 0.618 1.000 0.321 0.289 0.363 0.345
finglen  0.301 0.150 0.321 1.000 0.846 0.759 0.661
forearm  0.305 0.135 0.289 0.846 1.000 0.797 0.800
foot     0.339 0.206 0.363 0.759 0.797 1.000 0.736
height   0.340 0.183 0.345 0.661 0.800 0.736 1.000
;
run;


title 'Final Exam Problem #2 -- PCA on Criminal Data';
proc princomp data=criminal;
  var headlen headbdth facebdth finglen forearm foot height;
run;