---
title: "Stock Prices Automotive sector"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
require(Quandl)
Quandl.api_key('Ez5C8RRxy794pz8sFRss')
library(dygraphs)
library(tidyverse)
library(DT)
AGTL <- Quandl("PSX/AGTL", start_date='2000-01-01', end_date='2021-05-15',main="Share price of AGTL", type="xts")
ATLH <- Quandl("PSX/ATLH", start_date='2000-01-01', end_date='2021-05-15',main="Share price of ATLH", type="xts")
DFML <- Quandl("PSX/DFML", start_date='2000-01-01', end_date='2021-05-15',main="Share price of DFML", type="xts")
GHNL <- Quandl("PSX/GHNL", start_date='2000-01-01', end_date='2021-05-15',main="Share price of GHNL", type="xts")
GHNI <- Quandl("PSX/GHNI", start_date='2000-01-01', end_date='2021-05-15',main="Share price of GHNI", type="xts")
GAIL <- Quandl("PSX/GAIL", start_date='2000-01-01', end_date='2021-05-15',main="Share price of GAIL", type="xts")
HINO <- Quandl("PSX/HINO", start_date='2000-01-01', end_date='2021-05-15',main="Share price of HINO", type="xts")
HCAR <- Quandl("PSX/HCAR", start_date='2000-01-01', end_date='2021-05-15',main="Share price of HCAR", type="xts")
INDU <- Quandl("PSX/INDU", start_date='2000-01-01', end_date='2021-05-15',main="Share price of INDU", type="xts")
MTL <- Quandl("PSX/MTL", start_date='2000-01-01', end_date='2021-05-15',main="Share price of MTL", type="xts")
PSMC <- Quandl("PSX/PSMC", start_date='2000-01-01', end_date='2021-05-15',main="Share price of PSMC", type="xts")
SAZEW <- Quandl("PSX/SAZEW", start_date='2000-01-01', end_date='2021-05-15',main="Share price of SAZEW", type="xts")
```

AGTL
=====================================
```{r}
dygraph(AGTL$Close) %>% dyRangeSelector()
```

ATLH
=====================================
```{r}
dygraph(ATLH$Close) %>% dyRangeSelector()
```

DFML
=====================================
```{r}
dygraph(DFML$Close) %>% dyRangeSelector()
```

GHNL
=====================================
```{r}
dygraph(GHNL$Close) %>% dyRangeSelector()
```

GHNI
=====================================
```{r}
dygraph(GHNI$Close) %>% dyRangeSelector()
```

GAIL
=====================================
```{r}
dygraph(GAIL$Close) %>% dyRangeSelector()
```

HINO
=====================================
```{r}
dygraph(HINO$Close) %>% dyRangeSelector()
```

HCAR
=====================================
```{r}
dygraph(HCAR$Close) %>% dyRangeSelector()
```

INDU
=====================================
```{r}
dygraph(INDU$Close) %>% dyRangeSelector()
```

MTL
=====================================
```{r}
dygraph(MTL$Close) %>% dyRangeSelector()
```

PSMC
=====================================
```{r}
dygraph(PSMC$Close) %>% dyRangeSelector()
```

SAZEW
=====================================
```{r}
dygraph(SAZEW$Close) %>% dyRangeSelector()
```