data(mtcars)
X <- subset(mtcars, select = -c(vs))
y <- mtcars$vs
set.seed(42)
data_sample <- sample(length(y), length(y) * 0.8)
X_train <- X[data_sample, ]
y_train <- y[data_sample]
X_test <- X[-data_sample, ]
y_test <- y[-data_sample]
ebm <- ebm_classify(X_train, y_train)
ebm_show(ebm, "mpg")
Run the code above in your browser using DataLab