/* Lesson 14-03 */
 /*    File Name = les1403.sas   01/25/21   */
 /*    Original File Name = FA0713.sas   11/16/20   */

options nocenter linesize=78 pagesize=30;
options locale='en_US';
/* options locale='ja_JP'; */
proc printto print = 'StatM20/les1404-Results.txt' new;
ods listing gpath='StatM20/SAS_ODS14'; 

data food;                  
  infile 'StatM20/food.dat';
  input X01-X10;            
    label X01='M(-15)'      
          X02='M(16-20)'    
          X03='M(21-30)'    
          X04='M(31-40)'    
          X05='M(41-)'      
          X06='F(-15)'      
          X07='F(16-20)'    
          X08='F(21-30)'    
          X09='F(31-40)'    
          X10='F(41-)';     
                            
proc print data=food(obs=10);
run;                         

proc factor data=food nfactor=3 rotate=varimax out=out_fscore;
  var X01-X10;
run;
proc print data=out_fscore;
run;
proc plot data=out_fscore;
  plot factor1*factor2/vref=0.0 href=0.0;
  plot factor2*factor3/vref=0.0 href=0.0;
  plot factor3*factor1/vref=0.0 href=0.0;
run;