*
* Example 2/2/1 from pp 24-25
*
open data beer2.dat
calendar(m) 1991
data(format=free,org=columns) 1991:1 1995:8 beer
*
graph(footer="Figure 2-1 Time Plot of Australian beer production")
# beer
*
* RATS doesn't have a built-in instruction for doing the seasonal plot.
*
move beer 1991:1 1991:12 b1991 1
move beer 1992:1 1992:12 b1992 1
move beer 1993:1 1993:12 b1993 1
move beer 1994:1 1994:12 b1994 1
move beer 1995:1 1995:8  b1995 1
graph(footer="Figure 2-2 Seasonal Plot of Beer Production",$
  xlabels=||"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"||) 5
# b1991
# b1992
# b1993
# b1994
# b1995