# NOT RUN {
library(cuml4r)
model <- cuml_svm(
iris[1:100,],
formula = Species ~ .,
mode = "classification",
kernel = "rbf"
)
predictions <- predict(model, iris[1:100,])
cat("Iris species predictions: ", predictions, "\n")
model <- cuml_svm(
mtcars,
formula = mpg ~ .,
mode = "regression",
kernel = "rbf"
)
predictions <- predict(model, mtcars)
cat("MPG predictions:", predictions, "\n")
# }
Run the code above in your browser using DataLab