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

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

## Dataset Description {.tabset}
### Dataset view
```{r}
datatable(quine,extensions='Buttons',options=list(dom='Bfrtip',Buttons=c('copy','csv','print','pdf')))
```

### Structure the dataset
```{r}
str(quine)
```

### Summary of Dataset
```{r}
summary(quine) 
```
## Univariate analysis {.tabset}
### Analysis of learns
```{r}
attach(quine)
histogram(~Days|Lrn,breaks=50,col=c("red","blue"),main="Days Vs Learners")
```

### Age-wise learner analysis
```{r}
histogram(~Days|Age,breaks=50,col=c("red","blue"),main="Age Vs Days")
```