File:VW-Intraday-oct2008.pngquantmod.OHLC(z, col.names = c("Open", "High", "Low", "Close","Volume")) png("VW-Intraday-oct2008.png", width=1400, height=750, pointsize=12) chartSeries(q
File:Eurusd-id.png<- as.quantmod.OHLC(z, col.names = c("Open", "High", "Low", "Close")) png("Eurusd-id.png", width=1400, height=750, pointsize=12) chartSeries(q,type='bar'