---
title: "EDA for Quine Dataset"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: sandstone
    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')))

```


### About the dataset

```{r}
str(quine)

```
### Summary of the dataset
```{r}
summary(quine)

```
## Univariate Analysis {.tabset}
-----------------------------------

### Analysis of Leaners
```{r}
hist(quine$Days)
```

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