---
title: "EDA for Quine-Dataset"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: lumen
    social: menu
    source_code: embed
---

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

library(DT)

```

## Dataset Description {.tabset}

## Dataset Summary {.tabset}
## About Dataset 
```{r}
str(quine)
```

-----------------------------------------------------------------------
## Summary of Dataset
```{r}
summary(quine)
```

## Univariate Analysis {.tabset}

### Analysis of Learners
```{r}
hist(quine$Days)

```
### Agewise Learners Analysis 
```{r}
histogram(~Days|Age,data=quine,breaks=50,col=c("red","blue"))
```

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