'data.frame': 146 obs. of 5 variables:
$ Eth : Factor w/ 2 levels "A","N": 1 1 1 1 1 1 1 1 1 1 ...
$ Sex : Factor w/ 2 levels "F","M": 2 2 2 2 2 2 2 2 2 2 ...
$ Age : Factor w/ 4 levels "F0","F1","F2",..: 1 1 1 1 1 1 1 1 2 2 ...
$ Lrn : Factor w/ 2 levels "AL","SL": 2 2 2 1 1 1 1 1 2 2 ...
$ Days: int 2 11 14 5 5 13 20 22 6 6 ...
'data.frame': 146 obs. of 5 variables:
$ Eth : Factor w/ 2 levels "A","N": 1 1 1 1 1 1 1 1 1 1 ...
$ Sex : Factor w/ 2 levels "F","M": 2 2 2 2 2 2 2 2 2 2 ...
$ Age : Factor w/ 4 levels "F0","F1","F2",..: 1 1 1 1 1 1 1 1 2 2 ...
$ Lrn : Factor w/ 2 levels "AL","SL": 2 2 2 1 1 1 1 1 2 2 ...
$ Days: int 2 11 14 5 5 13 20 22 6 6 ...
###Summary of quine
---
title: "EDA_for_queen_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)
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 the dataset
```{r}
str(quine)
```
###Summary of quine
## Univariate Analysis {.tabset}
### Analysis of Learns
```{r}
histogram(quine$Days)
```
### Agewise Learner Analysis
```{r}
histogram(~Days|Age,data = quine,breaks=100,col=c("red","blue"),main="Age Vs learners")
```