/* Lesson 13-4 */
 /*    File Name = lec1304.sas   07/14/05   */
options linesize=72 pagesize=20;

data hobby;
  infile 'syumi.dat';
  input code $ X1-X6;
    label X1='M(-29)'
          X2='M(30-49)'
          X3='M(50-)'
          X4='F(-29)'
          X5='F(30-49)'
          X6='F(50-)';

proc print data=hobby(obs=10);
run;
proc factor data=hobby nfactor=2 out=fscore;
  var X1-X6;
run;
proc plot data=fscore;                        
  plot factor1*factor2=code/vref=0.0 href=0.0;
run;                                          
proc factor data=hobby nfactor=2 rotate=varimax out=fscore2;
  var X1-X6;
run;
proc plot data=fscore2;                       
  plot factor1*factor2=code/vref=0.0 href=0.0;
run;