> require(quantmod)
> getSymbols("SAM")
[1] "SAM"
Warning message:
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, :
downloaded length 100695 != reported length 200
> big.red.dot <- zoo(85, as.Date("2011-05-05"))
> plot(SAM['2011'])
Warning message:
In plot.xts(SAM["2011"]) : only the univariate series will be plotted
> points( big.red.dot, col="red", pch=19, cex=5 )
> big.red.dot <- xts(85, as.Date("2011-05-05"))
> plot(SAM['2011'])
Warning message:
In plot.xts(SAM["2011"]) : only the univariate series will be plotted
> points( big.red.dot, col="red", pch=19, cex=5 )
http://stackoverflow.com/questions/7303986/adding-points-to-xts-plot
http://stackoverflow.com/questions/7218978/how-to-draw-a-line-on-chartseries-plot-using-quantmod
