---
title: "EDA for Quine Data"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    theme: spacelab
    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','csv'),'print','ptf'))
```

### Dataset structure

```{r}
str(quine)
```

### summary 

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

## univariant analysis {.tabset}

### Analysis of Leaners
```{r}
attach(quine)
histogram(~Days|Lrn,main="Age vs Days",col=c("red","yellow"))

```

### Agewise learner analysis
```{r}
histogram(~Age|Lrn,main="age vs learner",col=c("grey","yellow"))
```