SVM
grid <- expand.grid(sigma = c(.01, .015, 0.2), C = c(0.75, 0.9, 1, 1.1, 1.25)) method="svmPoly" method="svmLinear" method="svmRadial"