*
* INFLUNEM.RPF
* RATS Version 8, User's Guide, Example from Section 15.3.
*
open data oecddata.rat
cal(q) 1960:1
all 1998:4
declare label country
declare vector[series] vars(2)
dofor country = "can" "deu" "fra" "gbr" "ita" "jpn" "usa"
  labels vars(1) vars(2)
  # country+"sur" country+"defls"
  clear vars
  data(format=rats) / vars(1) vars(2)
  set inflation = log(vars(2){0}/vars(2){1})
  inquire(regressorlist) n1 n2
  # vars(1) inflation
  graph(header="Inflation vs Unemployment for "+country,overlay=line) 2
  # vars(1) n1 n2
  # inflation n1 n2
end dofor