Nothing

```
context("explain_mlr")
library("DALEXtra")
library("mlr")
library("xgboost")
test_that("creating explainer classif", {
data <- as.matrix(createDummyFeatures(titanic_imputed[,-8]))
model <- xgboost(data, titanic_imputed$survived, nrounds = 10, params = list(objective = "binary:logistic"),
prediction = TRUE, verbose = FALSE)
explainer_1 <- explain_xgboost(model, data = titanic_imputed[,-8], titanic_imputed$survived, verbose = FALSE, encode_function = function(data) {
as.matrix(createDummyFeatures(data))
})
expect_is(explainer_1, "explainer")
expect_is(explainer_1$y_hat, "numeric")
explainer_2 <- explain_xgboost(model, data = data, titanic_imputed$survived, verbose = FALSE)
expect_is(explainer_2, "explainer")
expect_is(explainer_2$y_hat, "numeric")
})
test_that("creating explainer regr", {
data <- as.matrix(createDummyFeatures(apartments[,-6]))
model <- xgboost(data, apartments$m2.price, nrounds = 10, params = list(objective = "reg:squarederror"),
prediction = TRUE, verbose = FALSE)
explainer_3 <- explain_xgboost(model, data = apartments[,-6], apartments$m2.price, verbose = FALSE, encode_function = function(data) {
as.matrix(createDummyFeatures(data))
})
expect_is(explainer_3, "explainer")
expect_is(explainer_3$y_hat, "numeric")
explainer_4 <- explain_xgboost(model, data = data, apartments$m2.price, verbose = FALSE)
expect_is(explainer_4, "explainer")
expect_is(explainer_4$y_hat, "numeric")
})
test_that("creating explainer multi", {
data <- as.matrix(createDummyFeatures(HR[,-6]))
target <- as.numeric(HR$status)-1
model <- xgboost(data, target, nrounds = 10, params = list(objective = "multi:softprob", num_class = 3),
prediction = TRUE, verbose = FALSE)
explainer_5 <- explain_xgboost(model, data = HR[,-6], target, verbose = FALSE, encode_function = function(data) {
as.matrix(createDummyFeatures(data))
})
expect_is(explainer_5, "explainer")
expect_is(explainer_5$y_hat, "matrix")
explainer_6 <- explain_xgboost(model, data = data, target, verbose = FALSE)
expect_is(explainer_6, "explainer")
expect_is(explainer_6$y_hat, "matrix")
})
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.