*
* Example PLTEQP20.DAT from pp 608-610
*
open data plteqp20.dat
calendar(m) 1948
data(format=free,org=columns) 1948:1 1994:12 time orders
*
graph(footer="Figure 14-8 Capital Equipment Orders")
# orders 1985:1 *
*
filter(type=lagging,width=12) orders / ma12
set ratio = 100.0*(ma12/ma12{12})
print(picture="*.###") 1985:1 1994:12 orders ma12 ratio
graph(footer="Figure 14-11 12/12 Pressure Cycle for Capital Equipment")
# ratio 1987:1 *