/* Lesson 05-8 */
 /*    File Name = les0508.sas   10/30/18   */
options linesize=72 pagesize=20;
options nocenter linesize=78 pagesize=30;

proc printto log   = 'Kougi/les0508_log.txt'
             print = 'Kougi/les0508_Results.txt' new;

ods listing gpath='Kougi/SAS_ODS99';

data hobby;
  infile '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;