*
* Example 7/7 on pp 364-365
*
open data writing.dat
calendar(m) 1963
data(format=free,org=columns) 1963:1 1972:12 writing
*
boxjenk(diffs=1,sdiffs=1,ma=1,sma=1,maxl) writing
*
set ustd = %resids/sqrt(%seesq)
*
graph(footer="Figure 7-25 Analysis of Residuals")
# ustd
@regcorrs ustd