*
* Example 3/2/1 from pp 89-95
*
open data shampoo.dat
calendar(m) 1990
data(format=free,org=columns) 1990:1 1992:12 shampoo
*
filter(type=flat,span=3) shampoo / ma3
filter(type=flat,span=5) shampoo / ma5
*
graph(footer="3 MA smoother") 2
# ma3
# shampoo
graph(footer="5 MA smoother") 2
# ma5
# shampoo
*
* If you put in an even span, the FILTER instruction automatically converts that
* to a 2xn filter.
*
filter(type=flat,span=4) shampoo / ma2_4
*
print / shampoo ma2_4