---
title: "Exploratory Data Anlysis for Quine Dataset" 
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: spacelab
    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')))
```

### Dataset Structure
```{r}
str(quine)
```

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

## Univariate Analysis {.tabset}
### Analysis of Learns
```{r}
histogram(~Days|Lrn,data = quine,breaks=50, col = c("red","blue"), main = "Day VS Lrn")
```

### Age wise Learner Alalysis
```{r}
histogram(~Age|Lrn,data = quine,breaks=50, col = c("red","blue"), main = "Age VS Lrn")
```