*
* Graphical examples of return data starting page 366
*
open data returns.dat
calendar(m) 1988
data(format=free,org=columns) 1988:01 2004:12 rus roz rjap rhk
*
spgraph(vfields=2,hfields=2,footer="Figure 14.1 Time series of returns to stock indices")
graph(hlabel="(a) United States: S&P 500")
# rus
graph(hlabel="(c) Japan: TOPIX")
# rjap
graph(hlabel="(b) Australia: ASX 200")
# roz
graph(hlabel="(d) Hong Kong: Hang Seng")
# rhk
spgraph(done)
*
spgraph(vfields=2,hfields=2,footer="Figure 14.2 Histograms of returns to various stock indices")
@histogram(distrib=normal,hlabel="(a) United States: S&P 500") rus
@histogram(distrib=normal,hlabel="(c) Japan: TOPIX") rjap
@histogram(distrib=normal,hlabel="(b) Australia: ASX 200") roz
@histogram(distrib=normal,hlabel="(d) Hong Kong: Hang Seng") rhk
spgraph(done)