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

data food;                  
  infile '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;       
  var X01-X10;               
run;                         

proc princomp data=food out=outprin;
  var X01-X10;               
run;                         

proc print data=outprin(obs=15);
run;