DM 'LOG;CLEAR;OUT;CLEAR;';
 options ls=79 pagesize=1000 nodate;

 Data Rmat (Type=corr); 
   Infile track; 
   Input Run_1K L_Jump S_Put H_Jump Run_4K Hurdle Discus P_Vault
         Javelin Run_15K _Type_ $; 
   Length _Name_ $ 8.; 
   If _N_=4 then _Name_='Run_1K';
   If _N_=5 then _Name_='L_Jump'; 
   If _N_=6 then _Name_='S_Put'; 
   If _N_=7 then _Name_='H_Jump'; 
   If _N_=8 then _Name_='Run_4K';
   If _N_=9 then _Name_='Hurdle'; 
   If _N_=10 then _Name_='Discus';
   If _N_=11 then _Name_='P_Vault';
   If _N_=12 then _Name_='Javelin';
   If _N_=13 then _Name_='Run_15K'; 
 Proc Factor Data = Rmat Method = ML Nfact = 2 hey Rotate = V Plot;
 run;