* Working the first part of CP # 7, Econ. 435, 2000
set nocolor
time 1962 1
sample 1962 1998
read(b:d9503.htm) mur/skiplines=19
read(b:d1.htm) pop/skiplines=20
read(b:d170.htm) mar/skiplines=19
* Generating rates
genr murr=mur/pop
genr marr=mar/pop
* Generating dummy
genr law=0.0
sample 1978 1998
genr law=1.0
sample 1962 1998
* Regressing in rates
ols murr marr pop law/rstat resid=r
arima r/plotac plotpac
auto murr marr pop law/rstat
auto murr marr pop law/order=-1 rstat