---
title: "exploratory data analysis for quine dataset "
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: cerulean
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|Lrn,data=quine)
```
### agewise learner analysis
```{r}
histogram(~Days|Age,data=quine)
```
