---
title: "EDA for quine data analysis"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: paper
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','pdf')))
```
### About the dataset
```{r}
str(quine)
```
### summary of the dataset
```{r}
summary(quine)
```
## Univariate Analysis {.tabset}
### Analysis of Learners
```{r}
histogram(~Days|Age,data=quine,breaks=100,col=c("Red","Blue"))
```
### Age-wise learner anlysis
```{r}
```
