# NOT RUN {
## List the available data series.
print(allAvailableSeries())
# }
# NOT RUN {
## Download exchange rate data and plot NZD vs sterling.
b1 <- getSeries('B1')
plot(b1$data$Date, b1$data$UK_pound_sterling, type = 'l')
## Now use monthly data (previous was daily).
b1_monthly <- getSeries('B1', 'monthly')
plot(b1_monthly$data$Date, b1_monthly$data$UK_pound_sterling,
type = 'l')
# }
Run the code above in your browser using DataLab