*
* Chapter 1
*
open data ukdriversksi.txt
calendar(m) 1969
data(format=free,org=columns,skips=1) 1969:01 1984:12 ksi
set logksi = log(ksi)
*
* Linear regression on trend
*
set trend = t
linreg logksi
# constant trend
prj fitted
graph(style=dots,overlay=line,ovsamescale,$
  footer="Figure 1.1 Scatter plot of log KSI against time; with regression line") 2
# logksi
# fitted
*
graph(footer="Figure 1.2 Log KSI plotted as a time series")
# logksi
*
graph(footer="Figure 1.3 Residuals of classical linear regression")
# %resids
*
@regcorrs(number=14,footer="Figure 1.5 Correlogram of classical regression residuals")