/* Lesson PCA0705 */
 /*    File Name = PCA0705.sas   11/19/20   */
options linesize=72 pagesize=20;
options nocenter linesize=78 pagesize=40;
options locale='en';

proc printto
             print = '/folders/myfolders/Kougi20/SAS_out0705a.txt' new;
ods listing gpath='/folders/myfolders/Kougi20/SAS_ODS07'; 

/*
proc printto
             log   = '/folders/myfolders/Kougi20/SAS_log0705a.txt';
             print = '/folders/myfolders/Kougi20/SAS_out0705a.txt' new;

ods listing gpath='/folders/myfolders/Kougi20/SAS_ODS0705a'; 
*/

data food;                  
  infile '/folders/myfolders/Kougi20/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=outprin;
  var X01-X10;               
run;                         

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

proc plot data=outprin;
  plot prin2*prin1/vref=0.0 href=0.0;
  plot prin3*prin2/vref=0.0 href=0.0;
  plot prin1*prin3/vref=0.0 href=0.0;
run;

PROC EXPORT DATA=outprin
            OUTFILE= "/folders/myfolders/Kougi20/PCA0705_PrinOutFile.csv"
            DBMS=CSV REPLACE;
RUN;