---
title: "EDA for quine data"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: cosmo
    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|Lrn,data=quine, breaks = 50, col=c("Red","Blue"),main="Age vs Learners")
```

### Age-wise learner analysis
Column {data-width=900}
-----------------------------------------------------------------------