---
title: "EXPLORATARY DATA ANALYSIS FOR QUINE DATASET"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: flatly
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
library(DT)
```
## Dataset Description {.tabset}
### View of Data Set
```{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}
attach(quine)
histogram(~Days|Lrn)
```
### Age by learner analysis
```{r}
```
