Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----message=FALSE, warning=FALSE---------------------------------------------
library(dplyr)
library(explore)
train <- create_data_buy(obs = 1000, seed = 1)
glimpse(train)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
train %>% explain_tree(target = buy)
## ----fig.height=4, fig.width=6, message=FALSE, warning=FALSE------------------
model <- train %>% explain_forest(target = buy, out = "model")
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
test <- create_data_buy(obs = 1000, seed = 2)
glimpse(test)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
test <- test %>% predict_target(model = model)
glimpse(test)
## ----message=FALSE, warning=FALSE, fig.width=6, fig.height=4------------------
test %>% explore(prediction_1, target = 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.