example SVM in R using Iris data