options linesize=72 nodate nonumber;
data running;
input logtime logd sex;
datalines;
9.9	100	1		
19.8	200	1		
43.8	400	1	
103.7	800	1		
136.0	1000	1		
213.1	1500	1		
296.2	2000	1		
457.6	3000	1		
793.0	5000	1		
1650.8 	10000	1		
3464.4	20000	1		
4495.6	25000	1		
5490.4	30000	1		
7.2	60	2	
10.8	100	2	
22.1	200	2	
51.0	400	2	
117.0	800	2	
241.4	1500	2
;
data logrun; set running;
logtime=log(logtime);
logd=log(logd);
proc reg data=logrun;
by sex;
model logtime=logd;
run;
proc glm;
class sex;
model logtime = sex logd sex*logd;
contrast 'beta10=beta20' sex*logd -1 1;
contrast 'beta11=beta21' sex -1 1;
contrast 'joint' 
		sex*logd -1 1,
		sex -1 1;
run;