##Declare libraries to be used###
library(quantmod)
library(TTR)

##Get stock data##
getSymbols("JPM")

##create chart##
candleChart(JPM, multi.col=TRUE ,theme='white', type='candles', subset='2012-02::') 

##Add technicals##

addBBands(20)
addSMA(50,col="blue")
addSMA(200,col="black")

periodReturn(JPM,period='yearly',subset='2003::')