*
* Example 11.1 from page 215
*
open data tablef9-1[1].txt
data(format=prn,org=columns) 1 100 mdr acc age income avgexp ownrent selfempl
*
set incomesq = income**2
*
* Run the regression over the entries with positive values for expenditures
*
linreg(smpl=avgexp>0) avgexp
# constant age income incomesq ownrent
*
scatter(footer="Figure 11.1 Plot of Residuals against Income",style=dots,$
   hlabel="Income",vlabel="U",extend=both)
# income %resids