---
title: "EDA for Quine-Dataset"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: scroll
    theme: sandstone
    social: ["twitter","facebook","whatsapp"]
    source_code: embed
---


```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
library(DT)
```
## View at Dataset
```{r}
datatable(quine,extensions = 'Buttons',options = list(dom = 'Bfrtip',Buttons = c('print','pdf')))
```

## Dataset Description {.tabset}

### Structure of the Dataset

```{r}
str(quine)
```
### Summary of the Dataset

```{r}
summary(quine)
```
## Univariate Analysis {.tabset}

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

### Age-wise Learner Analysis
```{r}
histogram(~Days|Age,data=quine,breaks=100,col=c("red","blue"),main="Age Vs Learners")
```