---
title: "EDA FOR QUINE DATASETS"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: flatly
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
library(DT)
```

## dataset description {.tabset}

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


### structure of the dataset
```{r}
str(quine)
```

### Summary
```{r}
summary(quine)
```

## Univariate analysis {.tabset}

### Analysis of learners

```{r}
histogram(~Days|Age,data=quine)
```

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