*
* Example 9.4 from page 300
*
open data crime2.raw
data(format=free,org=columns) 1 92 pop crimes unem officers pcinc west nrtheast south year area d87 $
 popden crmrte offarea lawexpc polpc lpop loffic lpcinc llawexpc lpopden lcrimes larea lcrmrte $
 clcrimes clpop clcrmrte lpolpc clpolpc cllawexp cunem clpopden
*
* Regression uses only those entries where d87 is 1
*
linreg(smpl=d87) lcrmrte
# unem llawexpc constant
linreg(smpl=d87) lcrmrte
# unem llawexpc lcrmrte{1} constant
test(title="Test of Unit Elasticity of Past Crime Rate")
# 3
# 1.0