/* Lesson 13-2 */
 /*    File Name = lec1302.sas   01/16/08   */
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 nfactor=3 out=fscore;
  var X01-X10;                             
run;                                       
proc plot data=fscore;                     
  plot factor1*factor2/vref=0.0 href=0.0;  
  plot factor2*factor3/vref=0.0 href=0.0;  
run;