---
title: "EDA_Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: flatly
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
library(DT)
```

## Dataset Description {.tabset}

###  View of Dataset

```{r}
datatable(quine,extensions = 'Buttons',options = list(dom = 'Bfrtip',Buttons = c('copy','csv','print','pdf')))
```

### summary of the dataset

```{r}
summary(quine)
```

## Univariate Analysis {.tabset}

### Analysis of Learners

```{r}
histogram(~Days|Age,data=quine,breaks=50,col=c("Red","Green"),main="Days vs Age")
```

### Age-wise learner analysis

```{r}

```