Download Bit Coin Prices from Quandl

library(Quandl)

library(ggplot2)

library(tseries);library(timeseries);library(xts);library(forecast)

library (quantmod)

library(psych)

bit_coin=Quandl("BITSTAMP/USD", start_date="2014-01-01", type='xts' )[,c("Date","Last")]

oil_price=Quandl("OPEC/ORB", start_date="2014-01-01", type='xts')

candleChart(bit_coin, up.col = "black", dn.col = "red", theme = "white", subset = "2017-01-04/")

addSMA(n = c(20, 50, 200))

addBBands()

addMACD()