data(ECBYieldCurve)
## maybe str(ECBYieldCurve) ; plot(ECBYieldCurve)
tau <- c(3/12,6/12,1:30)
par(mfrow=c(1,2))
plot(tau,ECBYieldCurve[1,],type="o", ylim=c(0,5),
main="European Union's yield curve",sub="29/12/2006")
grid()
plot(tau,ECBYieldCurve[655,],type="o", ylim=c(0,5),
main="European Union's yield curve",sub="24/07/2009")
grid()Run the code above in your browser using DataLab