Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----message=FALSE, warning=FALSE---------------------------------------------
library(dplyr)
library(explore)
data <- create_data_buy(obs = 100)
glimpse(data)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
data %>% describe_tbl()
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
data %>% describe_all()
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
data %>%
describe_all() %>%
filter(unique == 1)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
data %>% describe(age)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
data %>% describe(buy)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.