Hi, guys. I am running the following code:

plotFunction <-function() {
library("quantmod")
getSymbols("SPY")
#pdf("quantModChart.pdf")
barChart(SPY,theme="white")
addLines(h=130,on=1)
addLines(h=100,on=1)
#dev.off()
 }

 plotFunction()


pS: sorry if it's a double post, first time user of a mailing list. Won't do
it again (I hope)

	[[alternative HTML version deleted]]

