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

```{r setup, include=FALSE}
library(flexdashboard)
library(lattice)
library(MASS)
library(DT)
```
## Dataset Description {.tabset} 


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


### About the Dataset
```{r}
str(quine)
```

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

## univariate analysis {.tabset}

### analysis of learners

```{r}
histogram(quine$Days,breaks=100)
```

### agewise learner analysis

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