*
* GraphOverlay.RPF
* RATS Version 8, Introduction, Example from Sections 4.7 and 4.11.
*
open data haversample.rat
calendar(m) 1972
data(format=rats) 1972:1 1988:12 fcme hst
graph(key=below,header="Housing Starts vs Mortgage Rates",$
  klabel=||"Housing Starts","Mortgage Rate"||,style=polygonal,min=0.0,overlay=line) 2
# hst  / 2
# fcme / 1
*
set raterise = t>=1973:8.and.t<=1974:12.or.t>=1978:3.and.t<=1981:11
graph(shading=raterise,header="U.S. Private Housing Starts",$
  subheader="With Rising Mortgage Rate Intervals") 1
# hst 1972:1 1988:12