Miscellany

require(quantmod)
y <- getFX('USD/CAD', from=Sys.Date()-499, auto.assign=F)
y.above <- y[as.vector(y) > mean(as.vector(y))]
y.below <- y[as.vector(y) < mean(as.vector(y))]
plot(y, type='n')
polygon(y.below, col='green')
polygon(y.above, col='red')