---
title: "EDA for dataset"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: journal
    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)
```
### About the  dataset 
```{r}
str(quine)
```
### Summary of the quine
```{r}
summary(quine)

```
## Univeriate Analaysis{.tabset}
## Analysis of learners
```{r}
hist(quine$Days,breaks=100)
```
### Age-wise Learner Analysis
```{r}
histogram(~Days|Age,data=quine,breaks = 50,col=c("red","blue"),main="age Vs Learners")
```
```{r}
datatable(quine,extension='Buttons',options=list(dom='bfrtip',buttons=c
                                                ('copy','csv','print')))
```