*
* Example 8/2/1 from pp 403-405
*
open data adv_sale.dat
data(format=free,org=columns) 1 36 sales adv
*
graph(footer="Sales and Advertising Data",key=upleft,klabels=||"Sales","Advertising"||) 2
# sales
# adv
*
boxjenk(ar=1,regressors,maxl) sales
# constant adv{0 to 4}
*
* This is continued on page 411
*