title'主成分分析';
data ex;input x1-x4@@;
cards;
42.4 12 24 22.7 10.2 19.4 18.4 15.1 116.8 24.6 12.5 12.1
4.8 28.8 1 4.4 43.6 24.7 2.8 5.4 13.3 28.3 1.8 4.7 61.1 18.7 8.8 8.5
99.3 18.3 13.7 11.8 139.5 9.4 18.7 17.9 55.5 8.1 22.6 22.3 68.3 3.5 26.7 29.1
83.4 5.7 27.5 29.4 90 12.8 23.7 23.6 18.8 19.4 17.4 15.1 47.6 22.8 13.3 12.3 
99.6 21 9.5 10.6 100.1 23 3.6 6.7 80.6 2.8 2.6 6.2 90 21.2 6.8 8.3
100.8 15.1 14.2 13.7 146.1 8.4 19.6 18.6 55.1 6.7 22.4 21.2
;
proc princomp out=prin;proc corr data=prin;var x1-x4;with Prin1-prin4;
run;