# NOT RUN {
# Train a model inside add_predictions call.
local_exploration1 <- add_predictions(dataset_for_local_exploration,
black_box_model = "regr.svm",
data = wine)
# Pass trained model to the function.
svm_model <- svm(quality ~., data = wine)
local_exploration2 <- add_predictions(dataset_for_local_exploration,
black_box_model = svm_model)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab