Hi I am having difficulties implementing svm model.
The setup for the SVM model would be
d <- diamonds[sample(nrow(diamonds),"4000"),