data kekjo;
set kekszalag2013 ;
if (elapsed ne "DNF") and (elapsed ne "RET") then output ;
run ;
proc means data=kekjo ;
run ;
proc univariate data=kekjo ;
histogram ;
run ;
proc sort data=kekjo ;
by osztály ;
run ;
proc freq data=kekjo ;
table osztály ;
run ;
data keksebesseg ;
set kekjo ;
if ys le 90 then seb= "gyors" ;
			else if ys ge 100 then seb="lassu" ;
						   else seb="kozep" ;
run ;	
proc freq data=keksebesseg ;
table seb;
run ;
data kekjo;
set kekszalag2013 ;
if (elapsed ne "DNF") and (elapsed ne "RET") then output ;
run ;
data kekmp2 (Drop= Bow hajó start finish ora nap perc mp);
set kekjo ;
if substr(elapsed,2,1) = ":" then do ;		/* napos adat1*/
  if substr(elapsed,4,1) = ":" then   
				do ; nap= substr(elapsed,1,1) ; /* egy számjegyű óra*/
					 ora= substr(elapsed,3,1) ;
					 perc=substr(elapsed,5,2) ;
					 mp = substr(elapsed,8,2) ;
			 elteltmp =nap*24*60*60+ora*3600+perc*60+mp ;
			    end ;			
								else  
				do ; nap= substr(elapsed,1,1) ; /* két számjegyű óra*/
					 ora= substr(elapsed,3,2) ;
					 perc=substr(elapsed,6,2) ;
					 mp = substr(elapsed,9,2) ;
			 elteltmp =nap*24*60*60+ora*3600+perc*60+mp ;
			    end ;
								end ;
							else 		
							do ;  /*órás adat*/
					 ora= substr(elapsed,1,2) ;
					 perc=substr(elapsed,4,2) ;
					 mp = substr(elapsed,7,2) ;
			 elteltmp =ora*3600+perc*60+mp ;
			    end ;
if substr(corrected,2,1) = ":" then do ;		/* napos adat1*/
  if substr(corrected,4,1) = ":" then   
				do ; nap= substr(corrected,1,1) ; /* egy számjegyű óra*/
					 ora= substr(corrected,3,1) ;
					 perc=substr(corrected,5,2) ;
					 mp = substr(corrected,8,2) ;
			 korrigmp =nap*24*60*60+ora*3600+perc*60+mp ;
			    end ;			
								else  
				do ; nap= substr(corrected,1,1) ; /* két számjegyű óra*/
					 ora= substr(corrected,3,2) ;
					 perc=substr(corrected,6,2) ;
					 mp = substr(corrected,9,2) ;
			 korrigmp =nap*24*60*60+ora*3600+perc*60+mp ;
			    end ;
								end ;
							else 		
							do ;  /*órás adat*/
					 ora= substr(corrected,1,2) ;
					 perc=substr(corrected,4,2) ;
					 mp = substr(corrected,7,2) ;
			 korrigmp =ora*3600+perc*60+mp ;
			    end ;
run ;
proc means data=kekmp2 ;
run ;
proc univariate data=kekmp2 ;
histogram ;
run ;
proc sort data=kekjo ;
by osztály ;
run ;
proc freq data=kekjo ;
table osztály ;
run ;
proc corr data=kekmp2 ;
run ;