/* Lesson 06-24 */
 /*    File Name = lec0624.sas   11/16/07   */
options linesize=72 pagesize=20;
options nocenter linesize=78 pagesize=20;

proc printto log   = '/folders/myfolders/Kougi/SAS_log0624.txt'
             print = '/folders/myfolders/Kougi/SAS_out0624.txt' new;

ods listing gpath='/folders/myfolders/Kougi/SAS_ODS99';

data hobby;
  infile '/folders/myfolders/Kougi/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;