Picture of Grid Search

# Start clock 
ptm <- proc.time()

costs<-seq(-5, 20, length.out = 20)

degrees<-c(1:5)

gammas<-seq(-9, -0.75, length.out = 5)

Linear

xgrid<-expand.grid(X1=costs, X2=degrees[degrees==1])

ggplot(xgrid, aes(x=X1, y=X2)) + geom_point(shape = "X", size = 3) + 
  xlab("Log Cost") + 
  ylab(NULL) + 
  labs(title = "SVM Linear Grid Search") + 
  theme(axis.text.y = element_blank(), axis.ticks.y = element_blank())

Polynomial

xgrid<-expand.grid(X1=costs, X2=degrees)

ggplot(xgrid, aes(x=X1, y=X2)) + geom_point(shape = "X", size = 3) + xlab("Log Cost") + ylab("Degree") + labs(title = "SVM Polynomial Kernel Grid Search")

Radial

xgrid<-expand.grid(X1=costs, X2=gammas)

ggplot(xgrid, aes(x=X1, y=X2)) + geom_point(shape = "X", size = 3) + xlab("Log Cost")+
  ylab("Log Gamma") + 
  labs(title = "SVM Radial Kernel Grid Search") +
  scale_y_continuous(breaks = gammas, labels = gammas) 

# Stop the clock
proc.time() - ptm

##    user  system elapsed 
##   7.163   0.545   8.093