Let\'s take data
library(shiny) library(plotly) library(quantmod)
start <- as.Date("2013-01-01") end <- as.Date("2016-10-01")