read;nvar=4;nobs=87;names=1;file=tspdmny.txt $
reject;speed=-999 $
create;time=year-1910 $
create;time2=time*time $
create;time3=time2*time $
create; if ( year >= 1919 & year <= 1942 ) interwar=1  $
create; war1=year>=1919 $
create; postwar=year>=1946 $
create; intertim=interwar*time ; posttime=postwar*time ;
 war1time=war1*time $
create;money=money/money[41] $
regress;lhs=speed;rhs=one, time $
regress;lhs=speed;rhs=one, time, time2 $
regress;lhs=speed;rhs=one, time, time2, time3 $
regress;lhs=speed;rhs=one, interwar, postwar, time $
regress;lhs=speed;rhs=one, time, intertim, posttime $
regregress;lhs=speed;rhs=one, interwar, intertim, postwar, posttime, time $
regress;lhs=speed;rhs=one, time, war1, war1time, postwar, posttime $
regress;lhs=speed;rhs=one, time, war1, war1time, postwar, posttime
 ;CLS: b(3)+3b(2)+9b(4) = 0 ,
  b(5) + 5b(2) + 5b(4) + 36b(6) = 0 $
create; money1=money/100000 $
boxcox;lhs=speed;rhs=one,time,money1;mle;lambda=.4;model=2 $