Machines à vecteurs de support en R
Kailash Awati
Instructor
library(ggplot2)
# Tracer longueur vs largeur des pétales; couleur selon l'espèce
p <- ggplot(data = iris,
aes(x = Petal.Width,
y = Petal.Length,
color = Species)) +
geom_point()
# Afficher le graphique
p

library(e1071)
# Construire le modèle
svm_model <- svm(Species ~ .,
data = trainset,
type = "C-classification",
kernel = "linear")
pred_train <- predict(svm_model, trainset)
mean(pred_train == trainset$Species)
0.9756098
pred_test <- predict(svm_model, testset)
mean(pred_test == testset$Species)
0.962963
Machines à vecteurs de support en R