Final Product

Code

library(quantmod)
library(TTR)
getSymbols("TSLA",src='google') # yahoo finance has had significant changes recently
## [1] "TSLA"
chartSeries(TSLA, subset='last 3 months')

addMACD() # add momentum indicator

addBBands() # add Bollinger Bands