##Dataset Discription {.tabset}

'data.frame':   146 obs. of  5 variables:
 $ Eth : Factor w/ 2 levels "A","N": 1 1 1 1 1 1 1 1 1 1 ...
 $ Sex : Factor w/ 2 levels "F","M": 2 2 2 2 2 2 2 2 2 2 ...
 $ Age : Factor w/ 4 levels "F0","F1","F2",..: 1 1 1 1 1 1 1 1 2 2 ...
 $ Lrn : Factor w/ 2 levels "AL","SL": 2 2 2 1 1 1 1 1 2 2 ...
 $ Days: int  2 11 14 5 5 13 20 22 6 6 ...

 Eth    Sex    Age     Lrn          Days      
 A:69   F:80   F0:27   AL:83   Min.   : 0.00  
 N:77   M:66   F1:46   SL:63   1st Qu.: 5.00  
               F2:40           Median :11.00  
               F3:33           Mean   :16.46  
                               3rd Qu.:22.75  
                               Max.   :81.00  

---
title: "EDA For 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(DT)
```

##Dataset Discription {.tabset}

### View od Dataset
```{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}
hist(quine$Days)

```
### agewise learner analysis

-----------------------------------------------------------------------