Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
message = FALSE,
eval = FALSE
)
## ---- eval=FALSE--------------------------------------------------------------
# library("dplyr")
# library("DALEX")
#
# head(titanic_imputed)
## ---- eval=FALSE--------------------------------------------------------------
# library("ranger")
#
# titanic_rf <- ranger(survived ~ .,
# data = titanic_imputed,
# probability = TRUE,
# classification = TRUE)
## ---- eval=FALSE--------------------------------------------------------------
# library("DALEX")
#
# titanic_ex <- explain(
# titanic_rf,
# y = titanic_imputed$survived,
# data = titanic_imputed)
## ---- eval=FALSE--------------------------------------------------------------
# library("arenar")
#
# titanic_ar <- create_arena(live = TRUE) %>%
# push_model(titanic_ex)
## ---- eval=FALSE--------------------------------------------------------------
# run_server(titanic_ar)
## ---- eval=FALSE--------------------------------------------------------------
# passangers <- data.frame(
# class = factor(c("1st", "3rd", "1st"), levels = c("1st", "2nd", "3rd", "deck crew",
# "engineering crew", "restaurant staff", "victualling crew")),
# gender = factor(c("male", "male", "female"), levels = c("female", "male")),
# age = c(8, 42, 12),
# sibsp = c(0, 0, 0),
# parch = c(0, 0, 0),
# fare = c(72, 10, 50),
# embarked = factor(c("Southampton", "Belfast", "Belfast"), levels = c("Belfast",
# "Cherbourg","Queenstown","Southampton")))
# rownames(passangers) = c("Johny D", "Henry", "Mary")
# passangers
## ---- eval=FALSE--------------------------------------------------------------
# titanic_ar <- titanic_ar %>%
# push_observations(passangers)
## ---- eval=FALSE--------------------------------------------------------------
# run_server(titanic_ar)
## ---- eval=FALSE--------------------------------------------------------------
# titanic_glm <- glm(survived ~ ., data = titanic_imputed, family = "binomial")
#
# library("gbm")
#
# titanic_gbm <- gbm(survived ~ ., data = titanic_imputed, n.trees = 500)
## ---- eval=FALSE--------------------------------------------------------------
# titanic_egb <- explain(titanic_gbm,
# y = titanic_imputed$survived,
# data = titanic_imputed)
# titanic_elm <- explain(titanic_glm,
# y = titanic_imputed$survived,
# data = titanic_imputed)
## -----------------------------------------------------------------------------
# titanic_ar <- titanic_ar %>%
# push_model(titanic_egb) %>%
# push_model(titanic_elm)
## ---- eval=FALSE--------------------------------------------------------------
# run_server(titanic_ar)
## ---- eval=FALSE--------------------------------------------------------------
# create_arena() %>%
# push_model(titanic_ex) %>%
# push_model(titanic_egb) %>%
# push_model(titanic_elm) %>%
# push_observations(passangers) %>%
# upload_arena()
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.