BI_Project01

## Warning: package 'rvest' was built under R version 3.3.3

## Loading required package: xml2

## Warning: package 'xml2' was built under R version 3.3.3

## Warning: package 'TTR' was built under R version 3.3.3

## Warning: package 'dygraphs' was built under R version 3.3.3

## Warning: package 'lubridate' was built under R version 3.3.3

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

plot(stocks.ts\(KO\)Close) dygraph(stocks.ts\(KO\)Close, main = “KO Stock Price”) %>% dyRangeSelector(dateWindow = c(“2013-12-18”, “2016-12-30”))

dygraph(stocks.ts$KO[,c(‘sma_200’,‘sma_50’)],main = ‘KO Moving Averages’) %>% dySeries(‘sma_50’, label = ‘sma 50’) %>% dySeries(‘sma_200’, label = ‘sma 200’) %>% dyRangeSelector(height = 30) %>% dyShading(from = ‘2016-4-28’, to = ‘2016-7-27’, color = ‘#CCEBD6’) %>% dyShading(from = ‘2016-7-28’, to = ‘2016-12-30’, color = ‘#FFE6E6’)