R에서의 Support Vector Machine
Kailash Awati
Instructor

ggplot()으로 $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: 다항식의 차수gamma와 coef0: 튜닝 파라미터u, v: 데이터셋의 벡터(데이터포인트)degree = 2 설정cost, gamma, coef0는 기본값 사용 (1, 1/2, 0)svm_model <- svm(y ~ ., data = trainset, type = "C-classification", kernel = "polynomial", degree = 2)
# Predictions
pred_test <- predict(svm_model, testset)
mean(pred_test == testset$y)
0.9354839
# Visualize model
plot(svm_model, trainset)

R에서의 Support Vector Machine