一、产生半月数据
a <- creCircleScatter(R = 10, r = 4, n=1000)
adata <- data.frame(X=a$X,Y=a$Y,Z=1)
b <- creCircleScatter(R = 10, ox = 7,oy=3, r = 4, n=1000,upper = FALSE )
bdata <- data.frame(X = b$X, Y = b$Y,Z = -1)
test_data <- rbind(adata, bdata)
test_data$Z <- as.factor(test_data$Z)
library(ggplot2)
ggplot(data =test_data,mapping = aes(x = X,y=Y,colour = Z))+geom_point()
二、训练SVM
#library(e1071)
svm_fit <- svm(Z ~ X + Y,data = test_data)
summary(svm_fit)
plot(svm_fit,data=test_data)