支持向量機 Support Vector Machines
# Import required library
library(e1071)
# Fitting model
fit <- svm(y_train ~ ., data = x)
summary(fit)
# Predict Output
predicted <- predict(fit, x_test)Last updated
# Import required library
library(e1071)
# Fitting model
fit <- svm(y_train ~ ., data = x)
summary(fit)
# Predict Output
predicted <- predict(fit, x_test)Last updated