Finally, let's apply the predict.svm() function to our data, which, based on the hyperplane described within the support_vector_machine_linear object, will define which customer will default and which will not:

me_customer_list$svm <- predict(support_vector_machine_linear,newdata = wrangled_me_customer_list)