# NOT RUN {
library(cuml4r)
# Classification
model <- cuml_rand_forest(
iris,
formula = Species ~ .,
mode = "classification",
trees = 100
)
predictions <- predict(model, iris)
print(predictions)
cat(
"Number of correct predictions: ",
sum(predictions == iris[, "Species"]),
"\n"
)
# Regression
model <- cuml_rand_forest(
iris,
formula = Species ~ .,
mode = "regression",
trees = 100
)
predictions <- predict(model, iris)
print(predictions)
print(round(predictions))
cat(
"Number of correct predictions: ",
sum(as.integer(round(predictions)) == as.integer(iris[, "Species"])),
"\n"
)
# }
Run the code above in your browser using DataLab