library(quantmod)

z<-getSymbols('^DJI')

plot(z)