tuneda <- tune.svm(response ~., data = trainingData, gamma = 10^(-6:-1), cost = 10^(-1:2)) # tune
summary (tuneda) # to select best gamma and cost
还是结果就是真么差呢。。