library(e1071)
svm_model <- svm(y ~ ., data = ..., 
                 type = "C-classification", kernel = "polynomial", degree = 3, 
                 cost = 50, gamma = 0.01, coef0 = 1)
summary(svm_model)