---
title: "EDA for Diamonds dataset"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    theme: cosmo
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
#install.package(DT)
library(DT)
```

## Dataset Description {.tabset}
### view dataset
```{r}
datatable(quine, extensions=
'Buttons',options=list(dom='Bfrtip',Buttons=c('copy','csv','print','PDF')))
```

### About the dataset

```{r}
str(quine)
```
### summary of quine dataset
```{r}
summary(quine)
```
## Univariate analysis{.tabset}
### Analysis of Leaners
```{r}
hist(quine$Days,col=c('green'))
```

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


### Agewise Learns analysis in pwplot

```{r}
bwplot(~Days|Age,data = quine)
```