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

proc printto log   = 'Kougi/DSles0505_log.txt'
             print = 'Kougi/DSles0505_Results.txt' new;

ods listing gpath='Kougi/SAS_ODS99';

data food;                  
  infile 'Kougi/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 princomp data=food out=out_prin;
run;
proc print data=out_prin;
  var prin1-prin5;
run;
proc plot data=out_prin;
  plot prin2*prin1/vref=0 href=0;
  plot prin3*prin2/vref=0 href=0;
  plot prin3*prin1/vref=0 href=0;
run;