*
* SPGRAPH.RPF
* RATS Version 8, Introduction, Example from Section 4.8.
*
cal(m) 1996
open data oecdsample.rat
data(format=rats) 1996:1 1998:12 canusxsr frausxsr jpnusxsr gbrusxsr
*
* Flip to dollars per foreign unit and assign descriptive labels
*
set canusxsr = 1.0/canusxsr
set frausxsr = 1.0/frausxsr
set jpnusxsr = 1.0/jpnusxsr
labels canusxsr frausxsr jpnusxsr gbrusxsr
# "Canada" "France" "Japan" "UK"
*
* Convert to percent appreciation
*
dofor i = canusxsr frausxsr jpnusxsr gbrusxsr
   compute base=([series]i)(1996:1)
   set i = 100*(i{0}/base - 1.0)
end dofor i
*
* Use TABLE to get the maximum and minimum across all series
*
table(noprint) / canusxsr frausxsr jpnusxsr gbrusxsr
*
* Set up the SPGRAPH for a 2x2 matrix
*
spgraph(vfields=2,hfields=2,header="U.S. Dollar vs Major Currencies",$)
  subheader="Percent appreciation over the sample")
dofor i = canusxsr frausxsr jpnusxsr gbrusxsr
   graph(max=%maximum,min=%minimum,header=%l(i)) 1
   # i
end dofor
spgraph(done)