---
title: "EDA for Quine-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}

### About the dataset/Dataset structure
```{r}
str(quine)
```

### Summary of the dataset
```{r}
library(DT)

datatable(quine, 
          extensions = 'Buttons', 
          options = list(
            dom = 'Bfrtip', 
            buttons = c('copy', 'csv', 'print', 'pdf')
          ))
```

## Univariate Analysis{.tabset}

### Analysis of learners
```{r}
hist(quine$Days)
histogram(~ Days | Age, data = quine, breaks = 50, col = c("red","Blue"))

```