---
title: "EDA QUINE DATASET"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: paper
    social: menu
    source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
#install.packages(DT)
library(DT)

```


## Dataset Description {.tabset} 


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

### Structure of the Dataset
```{r}
str(quine)
```
### Summary  of Quine Dataset

```{r}
summary(quine)

```


## Univariate Analysis {.tabset}

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

```

### Agewise Learner Analysis
```{r}
histogram(~Days|Age,data=quine,breaks=50,col=c("blue","red") ,main="age vs learners")
```