if (FALSE) { # rlang::is_installed(c("rpart", "randomForest", "xgboost"))
data_train <- create_data_buy(seed = 1)
data_test <- create_data_buy(seed = 2)
model <- explain_tree(data_train, target = buy, out = "model")
data <- predict_target(data = data_test, model = model)
describe(data)
}
Run the code above in your browser using DataLab