title "SAS principle component analysis example 1";

options ls=64 ps=55 nodate nonumber;

data score (type=corr);

infile cards missover;

_type_='corr';

input _name_ $ readsp readpow mathsp mathpow;

datalines;

readsp 1

readpow .698 1

mathsp .264 -.061 1

mathpow .081 .092 .594 1

;

/*population principal components*/

proc print data=score;

run;

ods html file="sas81.html";

proc princomp data=score (type=corr);

run;

ods html close;