*
* Example 3/3 from pp 101-106
*
open data shampoo.dat
calendar(m) 1990
data(format=free,org=columns) 1990:1 1992:12 shampoo
*
@localtrend(span=49) shampoo / curve49
@localtrend(span=19) shampoo / curve19
@localtrend(span=7)  shampoo / curve7
*
graph(overlay=dots,ovsame,footer="Very stiff curve") 2
# curve49
# shampoo
graph(overlay=dots,ovsame,footer="Moderately stiff curve") 2
# curve19
# shampoo
graph(overlay=dots,ovsame,footer="Very loose curve") 2
# curve7
# shampoo