---
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(MASS)
library(lattice)
library(DT)
```

## Dataset Description {.tabset}

### View dataset

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


### About the dataset

```{r}
str(quine)
```
### Summary of quine

```{r}
summary(quine)
```
## Univariate Analysis {.tabset}

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

### Agewise Learners Analysis
```{r}
histogram(~Days|Age,data = quine,breaks=100,col = c("red","blue"),main="Age Vs learners")

```


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

```


### Days vs Age

```{r}
bwplot(~Days|Age,data = quine,main="Age Vs Days")

```