*
* CHAPTER 5
* pg 165
*
open data ch05_cpsbox.xls
data(format=xls,org=columns) 1 2950 a_age a_sex ahe yrseduc
*
* Graph the data in a scatterplot
*
scatter(vlabel="Hourly Earnings",hlabel="Years of Education",$
 footer="Figure 5.3",style=dots,hmin=5,hmax=20)
# yrseduc ahe
*
* Calculate the regression line and plot it on the graph
*
linreg(robusterrors) ahe
# constant yrseduc
*
* Redo the scatter plot with the regression line included
*
scatter(vlabel="Hourly Earnings",hlabel="Years of Education",lines=%beta,$
 footer="Figure 5.3",style=dots,hmin=5,hmax=20)
# yrseduc ahe