DM 'LOG;CLEAR;OUT;CLEAR;';
options ls=79 pagesize=60 nodate;


data corrmat (type=corr);
  length _NAME_ $ 8. _TYPE_ $ 8.;
  input info verb_ab verb_an ego_s guilt tension;
  _TYPE_='CORR';

  if _N_=1 then _TYPE_ = 'N';
  if _N_=2 then _NAME_ = 'info';
  if _N_=3 then _NAME_ = 'verb_ab';
  if _N_=4 then _NAME_ = 'verb_an';
  if _N_=5 then _NAME_ = 'ego_s';
  if _N_=6 then _NAME_ = 'guilt';
  if _N_=7 then _NAME_ = 'tension';
  cards;
   147  147  147  147  147  147  
  1.00 0.67 0.43 0.11 -.07 -.17
  0.67 1.00 0.49 0.12 -.05 -.14
  0.43 0.49 1.00 0.03 -.14 -.10
  0.11 0.12 0.03 1.00 -.41 -.48
  -.07 -.05 -.14 -.41 1.00 0.40
  -.17 -.14 -.10 -.48 0.40 1.00

proc print;
proc factor data = corrmat method = ml rotate=varimax
     residuals nfact=2 hey plot;
var info--tension;
run;