---
title: "Exploratary data analysis for quine data set"
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}

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


### Above the dataset structure

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

### Create for summary
```{r}
summary(quine)
```

## Univeriate analysis {.tabset}

### analysis of learners

```{r}
histogram(~Days|Lrn,data=quine,breaks = 50,col = c("red","blue"))
```

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

```