---
title: "Stocks Time Series"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: [ "twitter", "facebook", "menu" ]
    source_code: embed    
    vertical_layout: scroll
    navbar:
      - { title: "Storyboard", href: "http://rpubs.com/kleberperez/454744", 
      target: _blank , align: left } 
      - { title: "HealthData.gov", href: "http://rpubs.com/kleberperez/454603", 
      target: _blank , align: left } 
      - { title: "About Kleber Perez", href: "https://www.linkedin.com/in/kleberperez/", 
      target: _blank , align: left } 
---

```{r setup, include=FALSE}
library(dygraphs)
library(quantmod)
library(flexdashboard)

getSymbols(c("AAPL", "GOOG", "MSFT"), from = "2014-01-01", auto.assign=TRUE)
```

### Apple

```{r}
dygraph(AAPL[,2:4], group = "stocks") %>% 
  dySeries(c("AAPL.Low", "AAPL.Close", "AAPL.High"), label = "AAPL")
```

### Google

```{r}
dygraph(GOOG[,2:4], group = "stocks") %>% 
  dySeries(c("GOOG.Low", "GOOG.Close", "GOOG.High"), label = "GOOG")
```

### Microsoft

```{r}
dygraph(MSFT[,2:4], group = "stocks") %>% 
  dySeries(c("MSFT.Low", "MSFT.Close", "MSFT.High"), label = "MSFT")
```