Creating a Simple Support Vector Machine (SVM) Classifier in R Using Custom Prediction Function