if (FALSE) { # rlang::is_installed(c("parsnip", "kernlab"))
# Load libraries
library(parsnip)
library(kernlab)
# Load data
data(spam)
# Create model and fit
ksvm_class <- svm_poly(mode = "classification") %>%
set_engine("kernlab") %>%
fit(type ~ ., data = spam)
out <- butcher(ksvm_class, verbose = TRUE)
}
Run the code above in your browser using DataLab