Machines à vecteurs de support en R
Kailash Awati
Instructor

ggplot() pour tracer l'ensemble dans l'espace $X_1 - X_2$p <- ggplot(data = df4, aes(x = x1sq, y = x2sq, color = y)) +
geom_point() +
scale_color_manual(values = c("red", "blue")) +
geom_abline(slope = -1, intercept = 0.49)
p

(gamma * (u.v) + coef0) ^ degreedegree est le degré du polynômegamma et coef0 sont des hyperparamètresu, v sont des vecteurs (points de données) de l'ensembledegree = 2cost, gamma et coef0 (1, 1/2 et 0)svm_model <- svm(y ~ ., data = trainset, type = "C-classification", kernel = "polynomial", degree = 2)
# Prédictions
pred_test <- predict(svm_model, testset)
mean(pred_test == testset$y)
0.9354839
# Visualiser le modèle
plot(svm_model, trainset)

Machines à vecteurs de support en R