library(quantmod)

getSymbols(^DJI)

plot(DJI)