DowJones R Script .Rmd version