Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
warning = FALSE,
message = FALSE,
dpi = 100
)
## ----setup--------------------------------------------------------------------
library(correlationfunnel)
library(dplyr)
## -----------------------------------------------------------------------------
data("customer_churn_tbl")
customer_churn_tbl %>% glimpse()
## -----------------------------------------------------------------------------
customer_churn_binarized_tbl <- customer_churn_tbl %>%
select(-customerID) %>%
mutate(TotalCharges = ifelse(is.na(TotalCharges), MonthlyCharges, TotalCharges)) %>%
binarize(n_bins = 5, thresh_infreq = 0.01, name_infreq = "OTHER", one_hot = TRUE)
customer_churn_binarized_tbl %>% glimpse()
## -----------------------------------------------------------------------------
customer_churn_corr_tbl <- customer_churn_binarized_tbl %>%
correlate(Churn__Yes)
customer_churn_corr_tbl
## ---- fig.height=12, fig.width=8, out.height="70%", out.width="70%", fig.align="center"----
customer_churn_corr_tbl %>%
plot_correlation_funnel()
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.