---
title: "Explore"
output: 
  html_document
---

## Describe Data

```{r fig.height=3, echo=FALSE, message=FALSE, warning=FALSE}
data %>% explore_tbl()
```

```{r echo=FALSE, message=FALSE, warning=FALSE}
describe_tbl(data)
d <- describe(data)
knitr::kable(d)
```

## Explore Variables

```{r echo=FALSE, fig.height=total_fig_height(data), fig.width=10, message=FALSE, warning=FALSE}
data %>% explore_all(ncol = 2)
```
