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

## Describe Data

```{r 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)
```

## Describe Target

```{r fig.height=3, echo=FALSE, fig.height=3, fig.width=5, message=FALSE, warning=FALSE}
data %>% explore(!!sym(var_name_target))
```

## Explore Variables

```{r echo=FALSE, fig.height=total_fig_height(data, target = 1), fig.width=10, message=FALSE, warning=FALSE}
data %>% explore_all(ncol = 2, target = !!sym(var_name_target), split = TRUE)
```
