library(quantmod)
getSymbols("YHOO")
chartSeries(YHOO, theme="white")
b1 <- addBBands(50,2)
b1 at params$colors$bg.col="#FFFFFF"
b1
b2 <- addBBands(100,2)
b2 at params$colors$bg.col="#FFFFFF"
b2
[[alternative HTML version deleted]]