*
* Graph examples from pp 103-104
*
open data ch03_exchangerate_10min.txt
data(format=free,org=columns) 1 2487 exchperc
*
set exchsq = exchperc**2
spgraph(vfields=2,footer="Figure 3.2")
graph(header="(a) Percentage Changes in Exchange Rate")
# exchperc
graph(header="(b) Squared Series")
# exchsq
spgraph(done)
*
spgraph(vfields=2,footer="Figure 3.3")
@bjident(number=36,max=.15,nozero) exchperc
@bjident(number=36,max=.15,nozero) exchsq
spgraph(done)